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АМО 1 - NUMERO 11 REVISTA EXCLUSIVA PARA USUARIOS 


¡¡MENUDO CAMBIO! 


Tráenos tu 


SPECTRUM 


Renuévate con 
INVESTRONICA. 


Ahora INVESTRONICA te da 
la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS. 
Sólo tendrás que entregamos tu 
ZX SPECTRUM... 

lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última 


7) 18000 pts si es de 16 K 


Apúntate a lo más 
nuevo. 


y llévate un 


SPECTRUM PLUS 


Tenerlo, muy fácil | 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar de 
un teclado profesional; 

17 teclos más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA, al realizar el 
cambio, te da de nuevo 

6 meses de garanfia, 

una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 


No te lo pienses... cámbiate a lo 
último, tienes los de ganar. 


Manda tu ZX Spectrum 

(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficial 

(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (*) 


| ds 
Dirigete a cualquiera de las delegaciones 


C/. Aribau, n° 80, Piso 5° 1° P de Ronda, n° 82, 1° E 
Telfs. (93) 323 41 65 - 3234404 Tell. (958) 26 15 94 
08036 BARCELONA 18006 GRANADA 


C/. San Sotero, n° 3 
Telfs 754 31 97 - 754 32 34 
28037 MADRID 


Су. Avda. de la Libertad, n° 6 
bloque 1° Enti. izq. D. 

Tel. (968) 23 18 34 
30009 MURCIA 


Avda. de Gasteiz, n° 19 A- 1% D C/, Асе, по 4 -5° D 
тен (945) 22 5205 Telf. (976) 22 47 09 
01008 VITORIA 50003 ZARAGOZA 


С/. 19 de Julio, n° 10 - 2° local 3 
Telf. (985) 21 88 95 
33002 OVIEDO 


C/ Hermanos del Rio 
Rodriguez, n° 7 bis 
Tel (954) 36 17 08 
41009 SEVILLA 


C/. Universidad n° 4 - 2° 12 Of. Travesia de Vigo, n° 32, 1 
Tell (96) 352 48 82 Telf. (986) 37 78 87 
46002 VALENCIA 6 VIGO 


Director: Simeón Cruz 


ACTUALIDAD. Reflexión sobre los 
aspectos más significativos del mercado. 


no siempre es necesa tortuga. 


rand National 


EL SPECTRUM HABLA 


CASTELLANO. Rutina en código 
máquina para traducir las palabras 
clave. 

SOFTAID. AYUDA PARA ETIOPIA 
Las casas de software se unen a la 
campaña contra el hambre en Etiopia. 
5.0.5. AQUI EL SPECTRUM. El 
ordenador, el interface morse y 

muchos amigos. 


48K SPECTRUM 


LA LUZ DEL LAPIZ. Lápiz óptico 
Made in Spain con un completo 

prog: de dibuj 

INTERFACE JOYSTICK. Montaje 
para conectar un joystick tipo Kempston 


GUSANEZ. 

QL MAGAZINE. Procesador de textos 
QUILL, y un programa en código 
máquina para definir las teclas de 
función 

PROGRAMAS. Arla, un juego gráfico 
de aventuras en castellano, y 
Circulación de fluidos. Diversión y 


aplicacio: 


n E BnB P EB ПЕМ 


na sección nueva ор 
е 
tendemos informar ч 
so la actualidad informara del 
i гау peticiones еп este senti A 
una noticia no por men 
imperio Sinclair. ` 
рга ае PECTRUM по а a СА 
1 1 kiosko, al igu: 
mes acudiremos at KIO: I ч 
arado un programa тиу especial ра 


dgina encontraréis u 


tualidad. Con ей 
tantes que 1 
esta а vue: 


próximo mes. 
Felices vacaciones. 


10 REM EL EDITOR ROBERT MAXWELL COMPRA SINCLAIR 
RESEARCH. Consecuencia de sus problemas financieros de los 
últimos meses, Sinclair necesitaba. entre 10 y 15 millones de 
libras. La pequeña crisis se ha remontado finalmente, у con 
ella ha caldo дік Clive. Como primera medida, dejarė la“ 


dirección de Sinclair Research, pasando a ocuparse de los aspectos 


+8cnicos de la compania. "No 50У empresario, Sino más bien ип 
inventor" declaraba Sir Clive, quien pasará, а tener 
dnicamente el 20% de la compañia. "No me siento herido Porno 
poseer el control. La compañia està a partir de ahora mucho 
más segura соп este tipo de dirección, porque yo no soy 
persona adecuada para la gerencia." 


Maxwell es presidente de Pergamon Press, editorial. que 
publica más de 350 revistas técnicas en Gran Bretaña. Antiguo 
diputado laborista у mecenas del deporte,.es también 
presidente del grupo Mirror, constituido рог tres diarios СОП 
una tirada superior a los diez millones de ejemplares. 


20 REM APLICACIONES PARA SPECTRUM. Los amantes de las 
aplicaciones profesionales están de enhorabuena. Key Soft 
está preparando el Baltex, procesador de textos que permitirá 
disponer de caracteres propios, asi como de software especial 
para su impresión рог todo tipo de impresoras. Este es sólo 
el primero de una serie de programas profesionales de gestión 
que se comercializaran еп cartucho y СОП protección hard. 


30 REM L.S.B. COMERCIALIZARA LOS PERIFERICOS INDESCOMP. 
A partir de este mes, los periféricos Indescomp serán 
distribuidos еп exclusiva рог 1.S.B., empresa de reciente 
creación. 


Entre los más conocidos modelos de esta marca, 
destaca el teclado profesional, interface programable y 
diversos interf 


асе para impresora: 


0000000000000000 


000000000 


oooooooooooooooo 


LA OTRA CARA 
DEL LOGO 


Convendréis con nosotros que cuando aparece el 
vocablo Logo, ya sea en la cabecera de un artículo en 
una revista, en el enunciado de un libro, o 
sencillamente escucháis hablar de él, nuestra mente 
automáticamente empieza a imaginar aquellas típicas 
figuras de la famosa tortuga tales como cuadrados, 
triángulos, casas y un sinfin de gráficos que puede 
realizar este pequeño animalito. 


uizás se pierde de vista la 

parte más potente e imagi- 

nativa de este lenguaje, 
Ea 


como es, el procesamiento 

de listas, palabras y núme- 
ros. No debemos olvidar que el 
Logo, palabra que precisamente 
significa «palabra», emprendió su 
singladura a partir de procesos de 
listas y palabras. 

La reciente aparición del Logo 
en Castellano para el Spectrum 
nos permite, no sólo hablar del 
lenguaje, sino poder sentarnos a 
experimentar соп él. 


Dado que de momento la docu- 
mentación que acompaña al pro- 
grama es un simple glosario de pri- 
mitivas (para los neófitos les reco- 
mendamos leer un artículo ante- 
rior sobre el Logo en TODOSPEC- 
TRUM de Enero y Febrero), nos 
permitiremos aclarar algunos ele- 
mentos de la sintaxis en el uso de 
las variables mientras esperamos el 
manual de programación. 

Para otorgarle un valor a una va- 
riable se utiliza la primitiva ASIG- 
NA y la manera de hacerlo es: 
ASIGNA “nombre objeto, donde 


el nombre que le damos debe ir 
precedido por una comilla (7)у sin 
dejar espacio alguno: y el objeto, es 
decir su valor o contenido, puede 
ser numérico, una palabra o una 
lista de palabras. 
Por ejemplo: 

ASIGNA “número 30. La variable 
de nombre “número vale 30. 
ASIGNA “animal “león. El conte- 


nido de la variable de nombre 
“animal es “león. 


ASIGNA “colores [rojo, verde, 
blanco, amarillo, azul, negro]. La 


variable de nombre “colores con- 
tiene la lista rojo, verde, blanco, 
amarillo, azul y negro. 


Como veis la sintaxis correcta 
utiliza una comilla como identifi- 
cador de los nombres y los corche- 
tes cuando tenemos más de un ob- 
jeto. 


Si deseamos obtener el conteni- 
do de una variable, debemos escri- 
bir dos puntos (:) por delante del 
nombre y sin dejar espacio alguno. 
Por ejemplo: ESCRIBE :animal; y 
el ordenador nos escribirá en la 
pantalla león, ya que es el conteni- 
do que le habíamos asignado. De 
igual manera ESCRIBE :colores 
nos escribirá en la pantalla la lista 
rojo verde blanco amarillo azul ne- 
gro. 


Las variables de este tipo se pue- 
den utilizar tanto dentro como fue- 
ra de un procedimiento y su valor 
será el de la última asignación 
dada. Veamos. 


PARA TRIANGULO 

REPITE 3 [AVANZA (афо GI- 
RADERECHA 120] 

FIN 


PARA CUADRADO 
REPITE 4 [AVANZA 
RADERECHA 90] 
FIN 


Si ahora quisiéramos que la tor- 
tuga nos dibujara un triángulo o 
un cuadrado nos enviaría el men- 
saje “lado no tiene valor en 
TRIANGULO”, ya que no le he- 
mos dado valor. 


Nos faltará pues hacer ASIGNA 
“lado 45 y podremos tener tanto 
un triángulo como un cuadrado de 
lado 45. 

Pero veamos qué pasa si cons- 
truimos el siguiente procedimien- 
to: 


:lado СІ- 


PARA TRIANGULO2 

ASIGNA “lado 70 

REPITE 3 [AVANZA :lado СІ- 
RADERECHA 120] 

FIN 


Aunque de absurda utilidad en 
este caso, ya que podríamos haber- 
le puesto un valor al avance sin 
utilizar la variable, nos servirá, sin 
embargo de ejemplo. ¿Cuál será el 
valor de la variable lado una vez 


hayamos ejecutado el procedi- 
miento TRIANGULO? Efectiva- 
mente el lector más avispado se 
habrá dado cuenta que en adelante 
también TRIANGULO Y CUA- 
DRADO cuando los volvamos a 
ejecutar nos darán figuras con la- 
dos de valor 70. Si no nos creen lo 
mejores comprobarlo. 


Hay otro uso de las variables que 
es de gran utilidad y esperemos 
que el ejemplo sea más ilustrativo 
que la explicación. 


Supongamos que deseamos ir 
modificando el tamaño del trián- 
gulo pero sin tener que asignar 
cada vez el valor al lado. Esto se 
puede hacer de la manera siguien- 
te: 


PARA TRIANGULO :lado 


REPITE : [AVANZA :lado GI- 
RADERECHA 120] 
FIN 


Nótese que hemos escrito junto 
al nombre del procedimiento, la 
variable lado, y que le hemos pues- 
to los dos puntos por delante para 
referimos a su valor. Demos por 
hecho también que esta variable 
no tiene en el momento de escribir 
este procedimiento ningún valor 
asignado. 


Si quisiéramos ejecutar el proce- 
dimiento obtendríamos un mensa- 
je de error pero esta vez muy dis- 
tinto al anterior :Faltan datos en 
TRIANGULO. Efectivamente el 
dato que falta es el valor del lado y 
para poder ejecutar este procedi- 
miento deberemos escribir 
TRIANGULO 30, si quisiéramos 
que la figura tenga un lado de 30; 
o TRIANGULO 40, o TRIAN- 
GULO 75, etc. Este uso de la va- 
riable es LOCAL y de interesantes 
posibilidades. 


¿Qué haría el procedimiento si- 
guiente? 


PARA MUCHOSNUMEROS :n 
ESCRIBE :n 
MUCHOSNUMEROS :n + 1 
FIN 


Fijaros que la segunda línea de 
este procedimiento vuelve a lla- 
marse a sí mismo y además le 
suma а :n uno, 


Ciertamente si escribiéramos 
MUCHOSNUMEROS 12, obten- 
dríamos una lista interminable de 
la sucesión de los números natura- 
les desde el 12 en adelante. 


Pero dejémonos de disgresio- 
nes teóricas y entremos de lleno en 
la otra cara del LOGO. Lo que os 
proponemos hoy es la confección 
de un diccionario que puede servir 
para que el niño trabaje con un mi- 
croambiente de palabras, en la me- 
dida que las vaya descubriendo, y 
les dé una relación determinada. 


Este diccionario puede relacio- 
nar dos palabras de cualquier for- 
ma. Puede ser una palabra en una 
lengua y en otra; pueden ser dos si- 
nónimos, o dos antónimos; los 
masculinos y los femeninos, los 
singulares y plurales, en fin en de- 
finitiva es una sencilla base de da- 
tos relacional de dos miembros 


El diccionario 


Hay cuatro procedimientos 
principales: DICCIONARIO, en 
donde puedo ir entrando los datos; 
LISTAR, que como su nombre lo 
indica nos da la lista de todes las 
palabras relacionadas; BUSQUE- 
DA, en el que al pedirle por la pri- 
mera palabra de la relación nos de- 
vuelve la otra, y finalmente INI- 
CIAR que nos pone la variable da- 
tos a cero y podemos recomenzar, 
Para cualquier duda sobre el signi- 
ficado de una primitiva consultad 
al final del artículo el glosario. 


FEE r 
PROGRAMA ЕВРА ESTAS ¡datos 
tiles, апыз 
НА АНА ESPAR MENOSERIMERO ¡datos 
$iūNA "datos п Е 
PARA BUSQUEDA 
PARA DICCIONARIO Р 
ESCRIBE LI ЗЕ Н „ PALABRA R BUSCAR, 
о" [ESCRIBE LAS DOS PALABRA 54 ра 48 ЕНІМЕНО-КЕБІШЗТН 
IGNA “datos PONULT LEELISTA :d «рте ien S ескт À 
BRÊ tonart IE = ва) Cbusquedal 
PARA BUSQUEDAS datos 
PARA LISTAR БІ ESTA.VACIA? datos falto) 
НА хто 51 ¡leido = PRIMERO PRIMERO :dat 
SUPRIME. CORES RERETIRT,1 БАН НА АНА А А АИ аперер 
Si CEEE ISTA = tsil tlištači eco als ы 
N 


LLEGA EL 


DISCOVERY 


El sistema compacto que reúne en una sola unidad los siguientes elementos: 


® Unidad de disco ulttamoderna de 3,5” con 180 К * Salida para monitor monocromo. 
* Interface paralelo Centronics ® Repetición del bus trasero del Spectrum. 
* Interface de joystick tipo Kempston > Alimentación interna de todo el sistema. 


[FACILMENTE AMPLIABLE A 360 Kybtes.] 


PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


% Contabilidad PNC (500 cuentas/4000 asientos) * Facturación 

® Tratamiento de textos % Nóminas 

* Cambio de Moneda • Base de Datos 
. 


Control de stocks 


[PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO] 
DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


Distribuido en España por: 8 SISTEMAS LOGICOS GIRONA, S.A. - Avda. San Narciso, 24 - 17005 GIRONA - Tel. (972) 23 71 00 


N LF. A17/081068 


A continuación pasamos a comen- 
taros lo que realiza cada procedi- 
miento y en un apartado especial Па- 
mado «sugerencias» nos permitimos 
aconsejaros unas pequeñas mejoras о 
retoques que, de seguro, 05 van a po- 
ner en algún que otro aprieto, que a 
su vez, servirá para que conozcáis, 
aún más, de lo que es capaz el 
«LOGO». 

1. Inicializa el Diccionario. 

Sugerencia—Añadir un mensaje 
confirmando de que se está seguro de 
destruir lo que ya existe en el Dic- 


= 
| 


= 
ASIGNA "Leido "Los 
SI Тала day? coche ATEN Loch 
i сос 
ВА А | Де 
oni aro lumino 
301 [sufrir padecer] [cansado fa A O 
tigadol (LOS ANTONIMOS] [bueno m 
alol [claro oscuro] [conocer des 
conocer] tamar odiar1] —, 
7 
GASTELLANO INGLES 
ia day с 
ihe йа PALABRA A BUSCART,honbre 
Nombre ASN QUIERES REPETIR?, 
LOS SINONIMOS 
bello bonito 
claro Luminoso = 
sufrir padecer 
cansado ana aqo 
LOS ANTONIMO: 
bueno malo PALABRA A BUSCAR?, coche 
claro oscuro car 
conocer desconocer QUIERES REPETIR”, 
anar odiar 
QUIERES REPETIR? 1 
= 


cionrio, de lo contrario no hacer пада. 

2. Incorpora nuevas palabras con 
su correspondiente equivalente. El 
procedimiento una vez finalizado 
vuelve a empezar con lo cual habrá 
que pulsar Break para salir del pro- 
grama. 

Sugerencia.—Verificar que son 
dos las palabras que os entran, y no 
más, y que la primera no es igual a la 


segunda. 

3. Busca la palabra que desee el 
operador. Además, al igual que el 
procedimiento anterior da la facilidad 


25] 


de buscar repetitivamente. Quizás 
BUSQUEDA? tenga algunas ins- 
trucciones algo complicadas que va- 
mos a intentar comentaros paso a 
paso. 
• Recibe el control de BUSQUEDA 
con todo el Diccionario. 
Si está vacío o es el final, para. 
Si la palabra leída es igual al pri- 
mer elemento del Diccionario y de 
éste el primero, visualiza la segun- 
da palabra, la equivalente (de las 
dos menos la primera), del primer 
elemento del trozo o parte lel Dic- 
cionario en curso. 

e Si la palabra leída es un igual a la 
corriente, vuelve a empezar BUS- 
QUEDA, pero esta vez, sin el pri- 
mer elemento (palabra y equivalen- 
te) de la lista. 

Sugerencia—Buscar por la pala- 
bra comparando, la primera palabra 
o su correspondiente equivalente, y si 
se llega al final y по se encuentra 
aquella buscada, dar el error pudien- 
do reintentar buscar si así se desea, 

Bien, el reto está aquí, esperamos 
que disfrutéis con este pequeño ejerci- 
cio y que no dudéis en escribir al 
apartado de sugerencias si necesitáis 
alguna aclaración adicional. 

Miguel Figini 
Francisco Orri Clotet 


БЕ GLOSARIO DE LAS PRIMITIVAS UTILIZADAS EN ESTE ARTICULO 


BORRATEXTO 

Borra la pantalla y nos 
pone el cursor en la posi- 
ción superior izquierda. 


ESCRIBE 
Escribe objeto en la 
pantalla y nos pasa a la lí- 


nea siguiente. (Recordar 
que objeto puede ser nú- 
mero, palabra o lista de 
palabras). 


PONULT 
Devuelve una nueva 
lista formada por la anti- 


gua más el objeto puesto 
en la posición ULTimo 
de la lista. 


LEELISTA 

Devuelve la lista que se 
entra como parámetro. 
Esta lista es una línea es- 
crita en la pantalla. 
IMPRIME 

Escribe los objetos en la 
pantalla, pero a diferencia 
de ESCRIBE no pasa a la 
línea siguiente. 
SI 

Es el condicional. SI 
predicado [lista1] [lista2]: 
Si el predicado es verda- 
dero se ejecuta listal, si es 
falso se ejecuta lista2. 


ESTA.VACIA? 
Devuelve CIERTO si 


objeto está vacío, es decir 
no tiene contenido. 


PRIMERO 
Devuelve el primer ele- 
mento de objeto. 


MENOSPRIMERO 
Devuelve objeto sin su 
primer elemento. 


ELEMENTO N 
Devuelve el N-ėsimo 
elemento de la lista. 


PARA 

Señala el comienzo de 
la línea de título, que defi- 
ne un procedimiento. 


FIN 

Palabra especial que in- 
dica el fin de la definición 
de un procedimiento. 


„„MI ORDENADOR ES SINCLAIR, 


MI SERVICIO TECNICO ES HISSA... 


Y es lo lógico. Si has elegido el mejor 


microordenador del 


repararlo con cualquiera. 


mercado, no vas а 


investronica, 


Sólo Hissa te puede garantizar 


la utilización de piezas originales SINCLAIR 


y expertos técnicos en reparación. 


n° B0, piso 5 
416 


Telis 


08036 В 
СУ Hermanos del Rio Rodriguez. n° 7 bs 
Tell: (954) 36 17 08 
41008 SEVILLA 


о 


Су, Son Sotero, n° 3 
754 31 97 - 754 32 34 
28037 MADRD 

Universdod. п” 4 - 2° 1 


Тен: (96) 352 48 82 
46002 VALENCIA 


Arda de Gasteiz, n? 19 A- 1* D 
Тен. (845) 2252 05 


Y recuerda que 
con el precio. 


no tendrás sobresaltos 


“COSTE ESTANDAR POR 


REPARACION” 


Acude a la delegación HES SA mas cercana. 


Су. Avda. de la Liberlod n° 6 Blog. 1 Enti. Izq, D. 
Tell (958) 23 18 34 


30009 MURCIA 


01008 VITORIA 


Рэ de Ronda, n° 82, 1° E 
Tell: (858) 26 15 94 
18006 GRANADA 


Су Trowesio de Vigo, n 32-1 
Тен (986) 37 78 87 


— F 


С/ 19 de Julo, n° 10-22 loco! 3 


Tol (085) 21 88 05 
33002 OVIEDO 


ој. Noes, ne 4 - 5° D 
Tell. (976) 2247 09 


6 V60 50003 ZARAGOZA 


GYRON 


Un científico creó, hace mucho 
tiempo, dos laberintos que prote- 
gieran su saber. Ambos desorienta- 
rán al curioso y. por si algún osado 
intenta penetrar, existen dos de 
fensas adicionales: las Esferas Ce- 
lestes, que se mueven en trayecto- 
rias predeterminadas, y que no po- 
demos tocar bajo peligro de muer- 
te y las Torres del Silencio, que 
apuntan sus láseres y no nos рег: 
donarán si pasamos en la dirección 
cubierta 

Afortunadamente, nosotros dis- 
ponemos de un vehículo (el He 
droide) muy especial, cuyo radar 
nos indica en qué dirección apun 
tan los láseres. Nuestro propio са 
non láser puede destruir las То. 
rres, siempre que logremos un im- 
pacto por la parte trasera. El ico: 
saedro de la parte inferior derecha 
del tablón de mandos nos indica er 


qué zona del laberinto nos encon- 
tramos. Cada laberinto tiene doce 
zonas, con dificultad creciente. El 
objetivo es recorrerlas, hasta llegar 
al depósito de sabiduría de la parte 
central. En el laberinto «fácil» (Па- 
mado Atrio) la parte central nos 
llevará a la entrada del laberinto fi- 
nal (la Necrópolis). 

El segundo laberinto nos lleva 
directamente hacia... un Porsche 
924. En efecto, todos aquellos que 
acierten la combinación final del 
juego serán invitados a una gran fi- 
nal en Londres, donde competirán 
en el laberinto para conseguir este 
premio. 


Р MOCHA 
RJHPHTC 
DMNPROF 
M HIGHTON 


Nuestro vehículo tiene movi- 
miento hacia adelante, giro a los 
dos lados, freno y la posibilidad de 
volverse en redondo instantánea- 
mente. Unos indicadores de posi- 
ción nos dicen si podemos o no gi- 
rar hacia los lados. El láser es de 
disparo continuo, y se puede apun- 
tar con las mismas teclas que mue- 
ven al vehículo. Los impactos con- 
tra las paredes debilitan progresi- 
vamente nuestro robot, hasta cau- 
sar su destrucción 

La dificultad está bien dosifica- 
da. Tras unos primeros juegos, que 
nos familiarizarán con sus man- 
dos, el Atrio parece al menos асс 
sible, aunque resulte dificil de 


roer. El segundo laberinto (con 
premio) exige una gran concentra- 
сіоп-у dominio del vehículo para 
no caer a las primeras de cambio. 


Un juego difícil, con unos gráfi- 
cos en tres dimensiones de tipo 
geométrico realmente soberbios, y 
que agradará a quienes disfruten 


GRAND NATIONAL 


Suena la señal de salida. Gol- 
peamos al caballo con la fusta sin 
piedad, pero es inútil: perdemos 
posiciones ante la impetuosa sali- 


La ria, un 
abstáculo difícil y 
complicado. 


da de los demás caballos. Poco a 
poco recuperamos posiciones. 
pero sin hacernos ilusiones: sólo 


estamos en la posición 31 cuando 
nos acercamos al primer obstácu- 
lo. Saltamos. 
mejorando, 
El cuarto obstáculo se nos acer- 
са. Ya se han retirado o han caido 
10 corredores. Nuestra posición es 


Muy bien. Vamos 


Ya en primera 
posición, la meta 
se encuentra а 

nuestro alcance. 


con los laberintos. No hay mons- 
truos que matar, no hay puntos 
para competir. Sólo el premio de 
llegar al final. Y no es роса cosa. 


mejor: el octavo lugar. Saltamos 
algo tarde y nuestro caballo cae 
Una lástima. Pero el año que vic- 
пе... 

Antes vienen las apuestas y el 
delicado ritual de elegir caballo: el 
8 tiene buena salida, pero no corre 
bien sobre terreno duro; en cambio 
el 6... Todos estos factores, y la ne- 
cesidad de suerte para pasar co- 
rrectamente los treinta obstáculos 
que componen la carrera. hacen de 
éste un juego animado. Quizá su 
principal problema es que la com- 
petición en sí es relativamente len- 
ta, y el proceso de apuestas y elec- 
ción de caballo retrasa aún más 
nuestra salida. Por lo demás, tanto 
la velocidad como los gráficos es- 
tán muy bien resueltos 

Y una advertencia: ojo con em- 
pujar a los demás caballos: los jue- 
ces abrirán una encuesta, y lo me- 
nos que os puede pasar es que se os 
imponga una multa. 


Spectrum 


habla 


en Castellano 


En informática, el inglés lo domina todo. Los lenguajes de 
programación se basan en términos ingleses o en sus abreviaturas. 
Los programas se crean mayoritariamente en este idioma y las 
traducciones tardan en llegar. Es hora ya de que esta situación 
empiece a cambiar. En estas páginas presentamos una interesante 
aplicación que permitirá obtener íntegramente en castellano los 
listados de cualquier programa. 


uando cualquiera де noso- 

С tros se «enfrenta» por pri- 
=5 mera vez a un ordenador 
(supongamos que al Spectrum), se 
encuentra con que ha de aprender 
un nuevo lenguaje si quiere ser са- 
paz de programarlo. Este lenguaje 
es el BASIC (Beginners'Allpurpo- 
se Symbolic Instruction Code); 

‚ como su nombre indica se trata de 


un «idioma» pensado para los 
principiantes, y su aprendizaje no 
es demasiado conflictivo..., al me- 
nos para los anglosajones. Porque 
como rápidamente advertimos, el 
BASIC está formado a base de pa- 
labras en inglés b de sus abreviatu- 
ras. Así, si no se conoce este idio- 
ma, la cosa resultará ya algo más 
difícil, 


воо 0010 ORG 64000 
FAGO DDZAS3SC 0020 LD” TX, (23635) 
IX apunta al comienzo del area 
de programa 
HL=numero de linea 
ғаоа CDASFA CALL самг 
FAO7 DD6600 0040 NLIN LD Н, C1IX+0) 
Ебов DDėE01 0050 LD L,(IX+1) 
FAOD CDSBFA 0060 CALL NLML I FA1C FEOE 
FALO CDASFA 0070 CALL IMPNL БАТЕ 2810 
FA13 0604 0080 LD ва FA20 FEAS 
Incrementa IX cuatro veces para | Ғ822 2024 
apuntar al numero de linea ر‎ вор 
2 Еб26 2805 
PALS 2023 0090 ТІМСІ INC IX База 07 
FA17 10FC 0100 DINZ LINCI S 
FA19 DD7EOO 0110 LAZOZ LD A,(IX+Q) FAZE 1ВЕС 
Carga A con el caracter FAZD D7 


Salta a CONST si A es un 


ФАЗЕ 


DDZ3 


indicador de constante 
Si А es mayor que 164 entonces 
es un Token 5 
Salta а FINLI si А ев indicador 
de fin de linea 

En otro caso imprine A 

El lazo se repite hasta que el 
registro A indique fin de linea 


Тон MIRA, ENANO! SALE E4) ESPAÑOL. 
YA NO HAY GOTOS М POKES... 


AHORA НАУ IRAS у SAQUILLOS 


Pues bien, esta rutina en código 
máquina nos permitirá al menos el 
consuelo de listar programas en 
castellano. 

Para entender cómo funciona 
deberemos conocer primero cómo 
almacena los programas en BASIC 
nuestro ordenador. Esto lo explica 
el manual del Spectrum en el capí- 
tulo 24, aunque quizá demasiado 


0120 бе 14 
0130 JR Z, CONST 
0140 СЕ 165 

0150 JR NC, TOKEN 
0160 СР 3 

0170 JR Z,FINLI 
0180 RST 10H 

0190 INC IX 

отоо JR LAZO2 
0210 FINLI RST 10H 

0220 INC IX 


escuetamente. Vamos a comentar- 
lo con algo más de detenimiento: 
La variable del sistema PROG 
(direcciones 23635 y 23636) con- 
tiene la dirección de la memoria 
donde comienza el programa BA- 
SIC. A partir de esa dirección se 
guardan las líneas del programa. 
Los dos primeros bytes contienen 
el número de línea, curiosamente, 
con el byte más significativo de- 
lante, es decir, al contrario de 


DDES O 
EDSB4BSC O 


LD 


Compre 
sobrep 


PUSH ІХ 


si el puntero IX ha 
o el area de programa 


como normalmente ocurre. Vie- 
nen a continuación otros dos bytes 
que nos dan la longitud de la linea. 
Los siguientes bytes contienen la 
línea de BASIC propiamente dicha 
y, por último, encontfamos un 
byte cuyo valor es 13 e indica el fi- 
nal dc linea. En las siguientes di- 
recciones de memoria estarán al- 
macenadas de este mismo modo 
las demás líneas del programa. 

Hay que tener además en cuenta 


0606 


DE, 


que si en una línea existe una cons- 
tante numérica inmediatamente 
tras ella habrá un byte con el valor 
14, seguido por cinco bytes que 
contienen el valor de la constante 

A continuación del programa en 
BASIC se encuentra el área de va- 
riables. Por consiguiente, la direc- 
ción contenida en la variable del 
sistema VARS es la dirección don- 
de termina el programa. 

Con estos datos ya estamos en 
condiciones de escribir una rutina 
en C/M que nos permita obtener 
listados «castellanizados». Se trata 
simplemente de cambiar los To- 
kens o palabras del Basic Sinclair 
por sus homólogos en castellano. 
¿Cuáles son estos Tokens?: veamos 
el juego de caracteres del Spectrum 
(apéndice A del manual). Los To- 
kens son todos los caracteres cuyo 
código es mayor de 164, es decir, 
de RNDa COPY. 


Estos son, pues, los caracteres 
que nuestro programa en C/M sus- 
tituirá a la hora de hacer listados. 


La rutina comienza a partir de la 
dirección 64000 y ocupa 1105 by- 
tes (algo más de 1 K), pero si se dis- 
pone de un ensamblador podrá 
ubicarse en cualquier otra direc- 
ción (una buena localización para 


CONST LD ње 
IINC2 INC ІХ 
DJNZ IINC2 


y en caso contrario salta а NLIN | Рада 1801 EEN 

FA48 DEA4 0 TOKEN SEC 
POP HL Halla el numero de orden del 
AND A Token 
SBC HL,DE 
JR СУМА івзға LD HL, TOF 
RET FA4D 47 LD EsA 

РАДЕ 11040 LD DE, 10 


Retorna al BASIC 
Іпсее IX 
encontrar una 


ta 


Imprime un 
da constante 


6 veces al 
indicacion de 
constante numerica 

espacio detras de 


51 19 
ЕА52 10FD 


0410 


HL apunta a la direcion donde se 
encuentra el Token 


›0 AADD1 ADD HL,DE 


DINZ AADD1 


La variable PROG guarda 


la dirección de comienzo de 


los programas. 


gl Spectrum de 16 K sería, por 
ejemplo, la 31500, lo que conse- 


guiríamos cambiando el ORG 
64000 del listado adjunto por 
ORG 31500). 


Los términos PEEK, POKE, 
OUT e IN se han dejado sin alte- 
rar, bien por no encontrar una tra- 
ijucción adecuada, bien рог no 
cpmplicar los nuevos listados en 
castellano. Sin embargo, si alguien 
lo desea puede traducir estas pala- 


bras o cambiar la traducción dada 
a las otras sin más que respetar dos 
condiciones: 

— Toda palabra ha de tener 
nueve caracteres más un punto. 

--5е debe escribir cada palabra 
poniendo un punto tras ella, y se 
recomienda dejar un espacio en 
blanco entre ella y el punto para 
que los listados obtenidos sean cla- 
Tos y ordenados. 

Estas condiciones se deben a que 


Los Tokens son los 90 
últimos caracteres, de RND 
a COPY. 


la subrutina de impresión de los 
nuevos Tokens utiliza el caracter 
“7” сото END-MARKER, esto 
es, reconoce el punto como final 
de palabra y retorna. (Sobre este 
tema se pueden consultar los ar- 
tículos sobre código máquina pu- 
blicados en la revista ZX, concre- 
tamente lo concerniente a rutinas 
de impresión). 

Son ejemplos de palabras váli- 
das los siguientes: 


FAS4 CDE7FA CALL IMTOF FAAZ се 
FAS? DD23 INC ІХ FAAS JEOZ 
FAS? 185E 0 JR LAZOZ FAAS CDO11é 
FASE DDES 0450 NUMLI PUSH IX 
Esta subrutina convierte el 
numero de linea, contenido en el 
registro HL, en cuatro codigos ғаға сә 
ASCII que almacena en el buffer | FAA? 11BFFA 
NUMER 
FASD DD21EFFA 0460 LD IX,NUMER 
0470 PUSH HL т 
0480 LD HL, 1000 RARE Gana 
5 FAAE 1а 
0490 ЕХ БЕН. 
0500 FOF HL ECU p: 
5 FABO 13 
0510 CALL ETIGI = 
NES a FAB1 10FB 
FABZ 3 
FUSH HL 
LD HL. 100 
0550 ЕХ DE.HL 
0560 POP HL ~ 
0570 CALL ETIGI Es 
Р FABS C9 
0580 INC IX ЕУ УБ 
0590 PUSH HL 
0600 LD HL, 10 
EX ПЕН. 
FOF HL 
CALL ЕТІБІ 
ІНЕ: 1% FAES РЕЛЕ 
"Ea кава св 
LD Cra FARD UT 
CALL CAR2 FABC 
OS FABD 
ETIQ1 LD ЕВЕ 
LAZO1 AND FAC1 
НЕ FACZ 
0730 INC 
0740 JR FAES 
0750 JR 
0760 JR 
0770 CAR ADD FACD 
0780 LD ғар? 
0790 ADD FAE1 
6800 LD FAEB 
0810 CAR2 LD FAFS 
0820 ADD FAFF 
FA9F 007700 0830 LD FEOS 


08406 RET 

0850 САМ2 LD а,2 

0860 CALL 1601H 

Abre el canal 2 mediante una 
llamada a la ROM 

0870 RET 

0880 IMPNL LD DE, NUMER 


Imprime el numero de linea 


0890 LD в,4 
0900 IMPR LD А, (DE) 
0910 RST 10H 
0920 ІМС DE 
0920 DINZ IMPR 
0940 LD A,32 


Imprime un espacio a 
continuacion 


0950 RST 10H 
0560 RET 
0970 IMTOK LD A, (HL) 


Impresion del Token 
Si el caracter es un punto, 
retorna 


СР 46 

ВЕТ 7 

RST 10H 

INC HL 

JR IMTOK 

DEFE О 

DEFB O 

DEFB О 

DEFB G 

DEFM "Ма Батан." 


0980 
0990 


NUMER 


1060 


1070 


TOKS 


Tabla con los nuevos Tokens. 


1080 DEFM "TECLAS. ç 
1090 DEFM "РІ. Ш 
1100 Ж 
1110 8 
1120 ПЕРМ "FANTALLAS. " 
1130 DEFM "ATRIBUTO. " 
1140 DEFM "ЕМ. р 


DEFM “PUNTO-.123” 

DEFM “-РОМТО.---" 

DEFM “Рипо--.--”, 

mientras que no son correctas 
esta otras: 

DEFM “PUNTO-----” 

DEFM “NUMALEATORIO” 

DEFM “PUNTO-.-”, 

la primera por carecer del carac- 
ter “.”, la segunda por exceder de 
los 10 caracteres y la tercera por 
tener menos de 10 caracteres. En 


FB13 
FB1D 
FB27 


1370 
1380 
1390 
1400 
с? 1410 
1420 
св 1430 
1440 
с? 1450 
1460 
1470 
1480 
1490 
1500 


La rutina parte de la 
dirección 64000 y ocupa 
1105 bytes. 


todos estos ejemplos los guiones 
representan espacios en blanco. 
¿Cómo funciona el programa? 
Supongamos que ya lo ha tecleado 
y grabado correctamente. Haga 
CLEAR 63999 para proteger el có- 
digo máquina y cárguelo mediante 
LOAD “” CODE 64000 o LOAD 
**” CODE. Si ahora carga cual- 
quier programa en BASIC y hace 
RANDOMIZE USR 64000 verá 
aparecer en su pantalla el listado 


"TABULAD . " | FCCB 
"VALORS. У FCDS 
“CODIGO . " | FCDF 
"VALOR. » | FCES 
“LONGITUD. " | ЕСЕЗ 
“SENO . " | FCFD 
"COSENO . “ FDO7 
"TANGENTE FD11 
"ARCSENO . FD1B 
“ARCCOS ..." | FD25 
ARCTANG . " | FD2F 
“LOGN . “ | FD? 
"EXP . “ | ғраз 
"FARTENTER ғрар 
"RAIZ . FDS7 
“SIGNO . FDé1 
"VALORABS FD6B 
ЧРЕЕК . FD7S 
“žr А ы FD7F 
"USR . " | FD83 
"CADENAS . " | Ер95 
"CARACTS . " | FD?D 
мо. " [ерат 
"BINAR . _ " | FDB1 
"025 " | FDBB 
» | ерс5 
FDCF 
" FDD? 
FDEZ 
" FDED 
FDF7 
2 " FEO1 
EINER ы і 
ENTONCES ." | FE1S 
HASTA . " | FE1F 
"INCREMEN FE29 
“DEF FUNC ." | БЕЗЗ 
"CATALOG . " | FESD 
"FORMATEA FE47 
"MUEVE . 
“BORRA . " | TOKS FACS 
"ABRER . " | IMPR БАЗЕ 
"CIERRAK . " | сакг ғазс 
"FUSIONA . " | ETIOL FABA 
"VERIFICA TOKEN Реза 
"SUENA + FINLI FAZD 
"CIRCUNF . " |NLIN ғап? 


del mismo como si hubiera teclea- 
do LIST, sólo que en este caso es- 
tará en castellano. 

Para terminar añadir que quien 
no disponga de ensamblador po- 
drá, igualmente, cargar el progra- 
ma con un simple cargador hexa- 
decimal, pero habrá de hacerlo ne- 
cesariamente a partir de la direc- 
ción 64000. 


Enrique F. Larreta 
1620 DEFM "TINTA . " 
1630 ПЕРМ "PAPEL . " 
1640 DEFM "FARPADEO ." 
1650 DEFM "BRILLO . " 
1660 DEFM "INVERSO . 
1670 DEFM "SOBREIMP . 
1680 DEFM "OUT . п, 
1690 ПЕРМ "IMPRIME . " 
1700 ПЕРМ “IMPRLIST ." 
1710 DEFM "PARA . я 
DEFM "LEE . 5 
DEFM "DATOS 200“ 
DEFM "REGRESA . " 
ПЕРМ "RENUEVA . " 
DEFM "BORDE . " 
DEFM "CONTINUA +" 
DEFM "DIMENS . " 
DEFM "NOTA . 2 
DEFM "DESDE . " 
DEFM "VE A. Е 
DEFM "VE SUB . " 
DEFM "INTRODUC ." 
DEFM "CARGA . " 
DEFM "LISTA . " 
DEFM "HAZ . Ф 
DEFM "PAUSA." 
DEFM "SIGUIENT ." 
DEFM "POKE . Д 
DEFM "ESCRIBE , " 
DEFM "DIBUJA . " 
DEFM “RUN . p 
DEFM "GRABA . " 
DEFM "ALEATOR . " 
DEFM "SI . Š 
DEFM "EORRAFANT. " 
DEFM "TRAZA . " 
DEFM "EORVARIAB, " 
ПЕРМ "REGRESA . " 
DEFM "СОРТАТМР. " 
2010 END 
NUMER БАВЕ — IMTOK FAB7 
IMPNL FAA? САМ2 FAAS 
CAR FAS7 (6701 FABD 
NUMLI FASB  AADDi FAS1 
IINCZ БАЗЕ CONST FA3D 
LAZO2 FA1? IINC1 FA1S 


# SEIS 


odos hemos oido alguna vez 

la canción «Do they know 

„it's Сһгіѕітаѕ?», cantada 

por una superbanda, la 

Band Aid, y cuyos ingresos 

van destinados a un fondo benėfico 

para intentar paliar los efectos de 

la sequía en Etiopía. La cinta que 

comentamos persigue este mismo 

objetivo, pero desde el punto de 
vista del software. 

Varias empresas de software bri- 
tánicas se han unido para ofrecer 
una colección de programas uni- 
dos bajo en nombre de Softaid. Los 
beneficios obtenidos se destinarán 
a esa misma campaña, y las dos ca- 
ras de la cinta contienen la canción 
citada. 

A continuación, comienzan los 
programas, siendo el primero 
Spellbound (hechizo) de Beyond. 
En este juego debemos tratar de 
«pisar» cada uno de los peldaños 
de una pirámide mientras la bruja 
Griselda nos envía terribles demo- 
nios en nuestra persecusión. Hasta 
un total de doce pirámides, que de- 
beremos recorrer para dejar nues- 
tra apariencia de rana y volver a 
convertirnos en príncipe. 

Cuandos nos hayamos cansado, 
podemos pasar al siguiente progra- 
ma, Starbike, de The Edge. Nues- 
tra nave nos lleva de planeta en 


TEE 


шооьз 


planeta, y nuestra misión, а los 
mandos de una potente bicicleta 
espacial, consiste en rescatar a los 
Orola, una especie de macetas sal- 
tarinas, y llevarlos de nuevo a 
nuestra nave nodriza entre una llu- 
via de extraterrestres y meteoritos. 
A continuación pasamos a otro 
planeta, donde las cosas resultarán 
sin duda más difíciles. 

El tercer juego es el Kokotoni 
Wilf, de Elite. Conocido por mu- 
chos lectores, nuestro objetivo es 
recoger pedazos de un amuleto 
mágico a través de varias épocas. 
Para ello nuestro héroe, dotado de 
alas, debe buscar incansablemente 
esquivando a los enemigos que in- 
tentarán evitarlo. 

La pirámide, de Fantasy, nos 
exige recorrer las cámaras interio- 
res de una pirámide, destruyendo 
los enemigos que nos iremos en- 
contrando y absorbiendo energía 
de unos cristales que aparecerán 
periódicamente, hasta pasar al si- 
guiente nivel. Finalmente podre- 
mos resolver el rompecabezas де la 
pirámide, teniendo en cuenta la 
pistas que nos irán proporcionan- 
do en las cámaras que iremos visi- 
tando sucesivamente. 

El último programa de la cara A 
nos sirve para reeencontrar a un 
viejo amigo: Horacio. Se trata de 


Horacio va a esquiar, de Melbour- 
ne-Psion. Horacio decide ir a es- 
quiar, pero para ello debe, en pri- 
mer lugar, cruzar la carretera para 
poder alquilar los esquíes. Si no te- 
nemos cuidado y somos atropella- 
dos nos tendremos que gastar dine- 
ro en pagar la ambulancia. Una 
vez en la estación de esquí, hay 
que esquivar los árboles, y procu- 
rar hacer un recorrido correcto en- 
tre las banderas. 

En la cara B comenzamos con El 
oro de Gilligan, de Ocean. Se trata 
de un laberinto muy acelerado, 
donde debemos intentar recoger el 
mayor número posible de sacos de 
oro. Pero, iojo!, los bandidos inten- 
tarán acabar con nosotros. Si tene- 
mos cuidado de no acercarnos a 
ellos la cosa irá bien. 

Ant attack es el siguiente progra- 
ma. Un programa ya conocido, de 
Quicksilvia, donde se nos da la 
oportunidad de rescatar a la chica 
(o chico) de la ciudad de las hormi- 
gas gigantes. Su resolución en 3D 
es buena siendo uno de los prime- 
ros programas que utilizó esta téc- 
nica. 

El 3D Tank Duel, a continua- 
ción, nos presenta un mundo de fi- 
guras geométricas en perspectiva, 
donde nuestro tanque se debe en- 
frentar a varios potentes enemigos. 


Un juego rápido y muy movid 
donde nuestro tanque caerá уісі- 
ma de los enemigos al primer des- 
cuido. El juego ha sido cedido por 
Real-time. 


Ya entre los dos últimos progra- 
mas de la cinta, uno muy conoci- 
do: Jack and the Beanstalk, de 
Thor, donde el equivalente inglés 
de Pulgarcito tiene que sacar el te- 
soro del castillo del gigante. Para 
ello hay que comenzar por subir 
más arriba de las nubes trepando 
por la gigantesca planta que creció 
en eljardín. 


El otro, Sorcery, de Virgin, nos 
obliga a intentar el rescate de tres 
hechiceros entre las piedras sagra- 
das de Stonehenge. Para ello, ade- 
más de esquivar a los mensajeros 
diabólicos de Necromancer, debe- 
mos encontrar el objeto que des- 
truirá al enemigo. 

Con la edición de este cassette 
de juegos, a beneficio de los afecta- 
dos por el hambre en Etiopía, y 
que incluye el tema musical de la 
campaña, no hacen sino acentuar- 
se los paralelismos observados an- 
teriormente entre el mundo del 
disco y el software para microorde- 
nadores. Los mecanismos de edi- 
ción y comercialización, las pro- 
pias casas que se encargan de la 
distribución y manufactura y el 
formato de venta se acercan cada 
vez más, dándole una nueva signi- 
ficación al concepto del programa 
de ordenador. 


Volviendo a Softaid. después de 
pasar por los diez juegos que іп- 
cluye la cinta, nos queda la sensa- 
ción de que, si bien alguno de ellos 
ha sido de los más vendidos en su 
momento, no está constituido por 
novedades en el mercado. A pesar 
de ello, supera ampliamente la ca- 
lidad de otras colecciones de jue- 
gos. Por otra parte, el objetivo be- 
néfico de su edición añade una 
componente  extracomercial al 
cassette. 


Cassette Magazine es otra de las iniciativas pro-Etiopía. 


Realizado y distribuido por Software Center, se trata de una 
revista en cassette —otra más—, destinándose los beneficios del 
primer número a la campaña de Etiopía. 


La diferencia con otras cassettes similares, consiste en la 
introducción de una segunda cara de temas generales: cine, 
entrevistas, deporte, música. La primera cara de la cinta 
contiene diversos programas para el Spectrum. El precio del 
primer número es de 1.000 pesetas. 
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UANDO nos hablan de 

Morse, todos pensamos en 

los telegrafistas de las peli- 

culas del oeste, amenazados 

por los malos para que no 
avisen de que la vía está cortada o 
en el SOS de un barco que se hun- 
de. A las personas ajenas a este 
mundo de los radioaficionados nos 
puede parecer que «eso del Morse 
debe estar un poco caduco». Nada 
más lejos de la realidad. 

Miguel Angel Romero nos cuen- 
ta que, todavía hoy, hay muchos 
radioaficionados que utilizan la te- 
legrafía por puro placer. La emi- 
т en Morse tiene también la 
ventaja de su mayor alcance cuan- 
do se emite en condiciones defec- 
tuosas. También se emite en Mor- 
se información meteorológica y 
ayuda a la navegación, y existen 
radiofaros y balizas que utilizan 
este sistema. 

Miguel Angel ha diseñado un 
Interface y un programa que, co- 
nectado a un Interface joystick tipo 
Kempston por el lado del ordena- 
dor y a un receptor transmisor por 


в 


el otro, nos permite usar el Spec- 
trum como experto radiotelegrafis- 
ta, emitiendo todo aquello que te- 
cleemos y escribiendo en pantalla 
los caracteres que recibe, siempre 
que la señal no tenga excesivo ni- 
vel de ruido. Para recibir debemos 
tener algo de práctica e indicarle al 
Spectrum la velocidad aproximada 
de transmisión, entre cinco posi- 
bles. La sintonía correcta es el 
punto que más puede afectar la 
transmisión. 

Con su equipo, comercializado 
por TYT, basta una hoja con las 
abreviaturas más utilizadas para 
lograr una excelente comunica- 
ción. Salvada la barrera del código 
Morse, sólo las diferencias idiomá- 
ticas nos impedirán la comuncia- 
ción con todo el mundo. 

Lo intentamos, pero los radioa- 
ficionados son «aves nocturnas», 
debido a las mejores condiciones 
de propagación, y debido también 
a que el nuevo equipo de Miguel 
Angel no dispone todavía de una 
antena en condiciones aceptables, 
no pudimos conectar con ningún 
particular, pero recibimos una es- 
tación francesa de información 
meteorológica y ayuda a la navega- 
ción, que nos informó del tráfico 
marítimo en el Atlántico. 
iempre dentro del mundo de la 
radio, Miguel Angel nos enseñó 
también un programa de TYT, 
realizado para permitir a los ra- 
dioaficionados el aprendizaje de 
los prefijos internacionales usados 
en las estaciones emisoras. Dispo- 
ne de una opción para sacar el lis- 
tado de todos los prefijos mundia- 
les, con el pais, distancia aproxi- 
mada, rumbo y WAZ. Si el prefijo 
indicado no corresponde a un solo 
país, el programa nos listará todos 


aquellos cuyo prefijo comience 
por las letras pulsadas. 

Los datos de rumbo han sido to- 
mados desde el centro de la Репїп- 
sula Ibérica, por lo que no resulta- 
rán fiables si se emite desde la peri- 
feria hacia países cercanos. Asi- 
mismo, en el caso de naciones muy 
extensas, los datos de WAZ y 
rumbo se sustituyen por VRS, 


indicando que estos datos son varia- 
bles. 

Entre silbidos, puntos y rayas, 
Miguel Angel nos cuenta que está 
pensando seriamente en la cons- 
trucción de un Interface radiotele- 
tipo, que ensanche aún más las po- 
sibilidades de comunicación del 
Spectrum: «Los principales pro- 
blemas que encuentro es que en el 


Spectrum es muy difícil tempori- 
zar intervalos de menos de dos 
centésimas de segundo desde BA- 
SIC. Así, nos enfrentamos con pro- 
blemas para realizar un programa 
que pueda emitir y recibir como 
radioteletipo. La única alternativa 
es el paso a otro lenguaje compila- 
do, más rápido, o el recurso al có- 
digo máquina.» 


Existen varios programas cons- 
truidos para permitir la comunica- 
ción Morse, pero casi ninguno in- 
cluye, como el de TYT, un /nterfa- 
се que conecte el Spectrum con el 
emisor, por lo que son sólo aptos 
para «manitas». 

Un ejemplo es el programa 
«Emision/Recepcion MORSE», 
distribuido por Ventamatic. Este 
programa utiliza como entrada y 
salida del Spectrum las tomas EAR 
y MIC, respectivamente. Por ello, 
deberemos ser nosotros quienes 
ajustemos los niveles de señal (es- 
pecialmente en la recepción) y co- 
nectemos correctamente el Spec- 
trum a nuestro Emisor. El ordena- 
dor suena simultáneamente a la 
emisión de la señal, por lo que este 
programa puede ser útil para facili- 
tar el aprendizaje de este código. 
Resulta fácil familiarizarse con la 
«música» de las letras y las palabas 
si el ordenador las transcribe a me- 
dida que pulsamos las teclas. 

El programa dispone de un menú 
con quince opciones, que permiten 
recibir texto, que se acumula en 
una memoria intermedia de alrede- 
dor de SK. Este texto se puede sa- 
car por pantalla o impresora. Otra 
opción permite el borrado de la me- 
moria de recepción. 

En cuanto a la emisión, el pro- 
grama permite almacenar textos de 
uso frecuente (por ejemplo los indi- 
cativos de llamada), hasta 3.000 
caracteres en mensajes de 255 ca- 
racteres cada uno, e introducirlos 
después en el texto. También dis- 
pone de opciones para preparar un 
mensaje, con posibilidad de añadir 
fragmentos archivados, o emitirlo, 
así como de borrado, tanto de los 
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textos archivados como del buffer 
de emisión (de 2.500 caracteres). 
La visualización de lós textos ar- 
chivados es también posible, así 
como su grabación y carga a cas- 
selle. 

Un modo de emisión directa, en 
el que el programa emitirá según 
vayamos pulsando las teclas, com- 
pleta el menú. En este modo tam- 
bién se puede insertar un texto ar- 
chivado, previamente, pulsando 
«*» y después el nombre bajo el 
que se archivó el fragmento. 

Un problema habitual de los pro- 
gramas de Morse es que el código 
no especifica la velocidad de trans- 
misión en términos absolutos, sino 
solo la relación entre la duración 
del punto y la de la raya. Por ello 
todo programa que pretenda ге 
correctamente debe tener una se- 
lección de velocidad, o bien un me- 
canismo automático de ajuste. El 
programa de Ventamatic tolera di- 
ferencias de un 40 por ciento en la 
velocidad ajustada y permite la se- 


lección de velocidad desde el tecla- 
do. 

Al conjunto de caracteres del 
Spectrum se le han añadido unos 
cuantos, bien, como la N, propios 
del idioma español, bien signos es- 
peciales como LL (llamada), CP 
(comprendido), ER (error), FT (fin 
de transmisión), ES (espera) y FR 
(fin de recepción). 

El problema principal del pro- 
grama es que no se realiza ninguna 
pausa entre las letras y, en modo de 
emisión directa, resulta muy fácil 
que los caracteres «breves», como 
la «e», nos salgan repetidos. Ha- 
brá que dedicar algún tiempo a co- 
gerle el tacto, sobre todo en modo 
de emisión directa, ya que corre- 
mos el peligro de llenar de errores 
nuestras transmisiones. 

Aparte de estos pequeños pro- 
blemas, que harán necesario un pe- 
riodo de adaptación para sacar su 
máximo rendimiento al programa, 
puede resultar útil para los que 
quieran iniciarse en este mundo. 


Complete su colección de 


Todospectrum 


A continuación le resumimos el contenido de los ejemplares 


aparecidos hasta ahora. 


Num. 1+250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas. 


Núm. 3-250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de im- 
presora/Programas. 


Núm. 5-250 pts: 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Así ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Num. 2+250 різ. 

Gráficos profesionales/Desplaza- 
miento pixel а pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasworo/ Interfaces para impresoras/ 
Programas 


Núm. 4+250 різ. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
gramas 


Núm. 6250 pts. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/ Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas 


NOMBRE 
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CON MI TARJETA DE 
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CIUDAD 
PROVINCIA 


(cada tapa es para 6 ejemplares) 


ÓPTICO | 


ntre los periféricos concebi- 
dos para facilitar el acceso 
del usuario a las posibilida- 
des del ordenador, el lápiz 
óptico permite combinar la 
rapidez de selección en toda la su- 
perficie de la pantalla con un pre- 
cio muy competitivo. Para los lec- 
tores que no tuvieran la paciencia 
o los conocimientos necesarios 
para realizar el montaje del lápiz 


presentando en nuestros números 
6 y 7, realizamos un análisis de los 
lápices presentes en el mercado es- 
pañol. Comenzamos con el diseña- 
do por Pin Soft. En futuros núme- 
ros hablaremos de otros lápices co- 
mercializados en España. 

El paquete está formado por el 
lápiz, que viene dotado de un pe- 
queño amplificador cuya salida se 
conecta a la entrada EAR del 


Spectrum, un cassette con un pro- 
grama de dibujo y un pequeño ma- 
nual de instrucciones. Para la ali- 
mentación del lápiz es necesaria 
una pila de 9V 

Ya con la pila en posición, po- 
demos pasar a cargar el programa 
de dibujo. Al acabar, deberemos 
sacar el cable del cassette de la 
toma EAR y sustituirlo por el ca- 
ble del lápiz. Esta operación se 
debe hacer con rapidez, ya que si 
no el programa puede confundir 
los ruidos de fondo del cassette con 
señales del lápiz. 


Ajustando la señal 


Según el folleto de instruccio- 
nes, que, como ya es costumbre en 
todo tipo de programas y periféri- 
cos, no aclara demasiado las posi- 
bles dudas que pueda tener quien 
no conoce el producto, llegados a 
este punto deberemos hacer una 
operación de corrección de posi- 
bles desajustes entre lápiz y panta- 
lla. Para realizarla pulsaremos 
ENTER, y una vez aparezca la op- 
ción, colocaremos la punta del lá- 
piz en el centro de la pantalla. El 
resultado debería ser la aparición 
de una línea horizontal que debe 
ser alineada con el lápiz utilizando 
las teclas «6» y «7». Nosotros sólo 
conseguimos llevar a cabo esta 
operación en algunas ocasiones (en 
otras la linea aparecía sólo unos 
instantes o aparecía el menú direc- 
tamente). Este tipo de problemas 
puede ser frecuente mientras nos 
adaptamos al programa dada su 
complejidad y la ya mencionada 
falta de información. 

De todas formas se debe prestar 
especial atención al ajuste de bri- 
llo, color y contraste de la TV, 
pues de esto depende la sensibili- 
dad del lápiz y por lo tanto su faci- 
lidad de manejo. Si el brillo es ex- 
cesivo o falta luminosidad el lápiz 
no localizará los puntos y por lo 
tanto su funcionamento no será el 
correcto. 

Para trabajar sobre colores oscu- 
ros deberemos hacerlo con el brillo 
al máximo (aun así es preferible di- 


Yo свео QUE HAY 
QuE APRETAR MENOS 


bujar primero sin utilizar colores, 
y una vez terminado el dibujo co- 
lorearlo). 

En el menú aparte de la opción 
de dibujo están las de carga y ar- 
chivo de cinta y microdrive de 
pantallas y gráficos definidos por 
el usuario. Para bajar al BASIC, 
con el fin de borrar archivos de mi- 
crodrive, hacer catálogos o ejecu- 
tar cualquier orden, bastará con 
hacer BREAK, y RUN para volver 
al menú. 


ЈА dibujar! 


Una vez tomemos la opción 
«Dibujar» la pantalla aparecerá en 


negro con una zona blanca donde 
se encuentra la información refe- 
rente a las opciones que estamos 
utilizando, a saber: 


Opción Dibujo Brillo Papel 
utilizada y/o color 

Dibujar Tipode Flash Tinta 
/en over escala 


Antes de empezar a dibujar de- 
beremos hacer un borrado de toda 
la pantalla; lo conseguiremos con 
CAPS SHIFT +C. De esta manera 
definiremos los atributos, que en 
principio serán papel blanco y tin- 
ta negra, 

Cuando acerquemos el lápiz a la 
pantalla aparecerá en ésta un ba- 
rrido horizontal; ésto es producido 
por el sistema que utiliza el lápiz 
para determinar su posición en 
pantalla. Si éste no aparece debe- 
remos ajustar los controles de la 
TV. Cuando el lápiz localice un 
punto aparecerá una cruz señalan- 
do; sólo entonces estará en condi- 
ciones de ejecutar un comando. Al 
principio resulta dificil controlar 
el punto exacto que queremos sea 
localizado, pero con la práctica y 
la insustituible ayuda de el coman- 
do «ZOOM» (con cuatro tamaños 
posibles) terminan los problemas. 
Se echa en falta alguna señal que 
nos avise cuando el programa ha 
«aceptado» una orden (algo como 
un BEEP o un cambio en el color 
del BORDER), ya que en algunos 
comandos esta deficiencia puede 
resultar verdaderamente molesta. 


Opciones y comandos 


En la esquina que nos indica la 
opción utilizada podremos intro- 
ducir 13 comandos distintos (ver 
tabla adjunta) de los que merece 
resaltar la opción FILL, que en 
esta versión han traducido literal- 
mente como «RELLENA». Basta- 
rá situar el lápiz dentro de lo que 
queramos rellenar y pulsar EN- 
TER. La subrutina es verdadera- 
mente rápida, por lo que es reco- 
mendable salvar la pantalla antes 


de utilizar este comando, ya que si 
dejamos alguna zona sin delimitar 
la tinta se extenderá irreversible- 
mente; como contrapartida a este 
récord de velocidad está el que en 
superficies irregulares deje fre- 
cuentemente zonas o puntos sin 
rellenar, por lo que no es raro que 
tengamos que repetir la operación 
varias veces. 

Otro de los comandos dignos de 
comentar es «Círculo» ya que tra- 
za las circunferencias de un modo 
verdaderamente original: iempe- 
zando a la vez por cuatro puntos!, 
con la ventaja frente a la rutina de 
la ROM de que no dará mensaje de 
error si nos salimos de pantalla, 
aunque eso si, en los de pequeño 
tamaño es corriente que deje algún 
punto sin acabar, por lo que no es 
aconsejable usar la opción de relle- 
nado sin revisarlo previamente. 
Para ejecutar este comando debe- 
remos marcar con el lápiz (y EN- 
TER) el centro y un punto de la 
circunferencia. 

Para dibujar normalmente tene- 
mos el comando «LIBRE», con el 
que tendremos que pulsar ENTER 
para empezara dibujar y separar el 
lápiz para dejarlo. El número de 
muestras que toma el lápiz antes 
de abandonar se puede controlar 
parando el programa con BREAK 
y haciendo POKE 50265,n (donde 
n es dicho número de muestras), lo 
cual con un número entre 25 y 50 
facilitará mucho las cosas. Aun así 
no es tan sencillo utilizar este co- 
mando como pueda parecer; al 
principio hacen falta grandes dosis 
de paciencia para concluir un di- 
bujo de esta manera, aunque con la 
práctica las cosas acaban funcio- 
nando relativamente bien. 

Bajo el lugar donde aparecer el 
comando en curso se nos indica si 
estamos o no en OVER 1. Este 
programa permite también que los 
comandos que ejecutemos afecten 
sólo a los atributos (COLOR), sólo 
a la tinta (DIBUJO) o a ambos 
(COLOR y DIBUJO), lo cual pue- 
de sernos de mucha utilidad una 
vez nos acostumbremos a su uso. 
Para borrar tendremos que inter- 
cambiar tinta y papel (pulsando 


«c» lo conseguiremos siempre que 
no estemos en opción de DIBUJO 
y COLOR) y tras dibujar lo que 
queramos borrar repetir la opera- 
ción. Podemos asimismo definir 
una zona determinada de la panta- 
lla de forma que los comandos se 
ejecuten exclusivamente en ella, 
así como almacenar esa zona en 
memoria y colocar posteriormente 
en cualquier parte de la pantalla 
tantas copias como se desee. Lo 
primero puede ser útil cuando 
queramos por ejemplo borrar sólo 
una parte de la pantalla o cambiar 
sus atributos (definiendo la zona, 
ila opción de sólo DIBUJO o sólo 
COLOR у ejecutando el borrado). 

Los scrolls los podemos conse- 
guir con SYMBOL SHIFT + 5, 6, 
7 y 8, y serán caracter a caracter si 
afectan al color y pixel a pixel si 
afectan sólo al dibujo. Asimismo 


podemos hallar la imagen simétri- 
ca de la que hayamos dibujado, 
tanto con eje vertical como hori- 
zontal. Disponemos también de la 
posibilidad de archivar dos panta- 
llas en memoria y volver a recupe- 
rarlas con la tecla «t» y CAPS 
SHIFT, así como algunas otras fa- 
cilidades tipicas de todos los pro- 
gramas de dibujo. 


¿Un periférico más? 


Se tarda más tiempo de lo habi- 
tual en acostumbrarse al uso de to- 
dos estos comandos y sacarles todo 
el partido, pero llegados a este 
punto nos encontramos con un 
programa realmente potente, aun- 
que si queremos hacer dibujos de 
una cierta complejidad es conve- 
niente compensar las pequeñas de- 
ficiencias que éste pueda tener con 
un programa clásico, ya que el uso 
de los cursores se echa muy en fal- 
ta. Asimismo el modo texto cs 
muy limitado en relación con 


La pantalla que acompaña a este 
artículo ha sido realizada casi en su 
totalidad con el empleo de este pe- 
riférico y su programa de dibujo. 
El sistema utilizado fue el siguien- 
te. 

Comenzamos haciendo una cir- 
cunferencia con la opción CIRCU- 
LO que, más tarde, el comando 
RELLENA se encargó de comple- 
tar. Después utilizamos TRIAN- 
GULO, combinada con EN OVER 
para que la figura quedara sobre el 
circulo; para el cubo bastó utilizar 
CAJA en dos ocasiones, y termi- 
nar uniendo los vértices con LI- 
NEA SOLA. El texto fue obra de 
la opción LINEA CONTINUA 
(que traza rectas, cada vez que pul- 
samos ENTER, entre el último 
punto dibujado y el que en ese mo- 
mento haya localizado) y de nuevo 
RELLENA. En numerosas ocasio- 


nes hubo que corregir los pequeños 
fallos que se nos «colaban», para lo 
'cual teníamos que intercambiar 
tinta y papel y, con ayuda del 
ZOOM dibujar sobre lo que que- 
ríamos borrar. La firma fue intro- 
ducida desde microdrive en forma 
de caracteres definidos por el usua- 
rio, (gracias a una opción del 


са A 


Tada$pectrum 


presenta: 


menú), y más tarde pasada a panta- 
Па por el modo TEXTO CON 
UDGs. 

Cuando el dibujo estaba prácti- 
camente finalizado algo comenzó a 
fallar: el lápiz no localizaba los 
puntos o lo hacía con mucha difi- 
cultad. Probamos con una pantalla 
vacía y todo volvió a funcionar a la 
perfección. Tras probar todo tipo 
de variaciones en el ajuste de brilo, 
contraste y color del monitor hubo 
que optar por terminar de definir 
algunos atributos desde un progra- 
ma de dibujo «clásico» (con empleo 
de cursor), 

Salvo éste no tuvimos ningún 
problema importante, teniendo en 
cuenta que era la primera vez que 
utilizábamos este periférico, y que 
el tiempo empleado no fue superior 
a tres horas, que en este tipo de tra- 
bajos no es demasiado tiempo. 


YO свео QUE HAY 
QUE APRETAR MENOS 


Ге 


otros programas de este tipo, aun- 
que ello queda compensado con 
las facilidades que puede dar el uso 
de «ventanas» o zonas de pantalla 


TABLA DE COMANDOS 


COMADO . Guardar pantalla en me- 
por separado. Dibujar (tipo de punto) САРЅЅНІЕТ+Т.... кле pantalla de 
ía si En over (tipo de punto) | memoria 
(abría sido un detalle por parte оро, е 5 
š cha i ibre (señalar ini 0а7 Seleccionar color de tinta 
del fabricante incluir algo de infor- Punto > 222 CAPSSHIFT+0a7.. Seleccionar color de pa- 
mación acerca del funcionamiento А уез (señalar чин: pel 2.2 
software y hardware de este perifė- .. Caja (rectigulo) _ 77 o Bie а | 
rico, ya que esto podría ser útil : ies horizontal (sein CAPSSHIFT+9 .... Flash0ó L(imtercambia) | | 
ilizarl tros propios Línea vertical (id.) A kai ! 
para utilizarlo en nuestros propi sine CAPSSHIFT+Y..... Cundricula sin colores 
programas sin tener gue desensam- Lineas con punto de fuga SIMBOL SHIFT +5 а 
ба, адашпа, (id) i 
blar su código máquina, — E Атны (o) 
En fin, un periférico más que se Círculo a T 
i R Texto а parte > 
suma a la ya larga lista de los que | Ка; енені da 
hacen pasar buenos ratos a quien | 7 Rellenar Definir zona 
j Simetría vertical Guardar zona еп memo- 
los tome como un juego y puedan вена horizontal ria 
er de utili га quien рг Borrar la pantalla 8... Reproducir zona 
O ea peera Intercambiar papektinta CAPS SHIET+8 |!!! Quitar y poner ventana 
fines más serios para su Spectrum, Salo color de información 
isti Solo dibujo (sin col CAPS SHIFT + A Cambiar color del borde 
sobre todo en el terreno artístico. тека ашо) Не 
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SUSCRIBASE 
POR TELEFONO 
* más fácil, 

x más cómodo, 

* más rápido 


Telf. (91) 7337969 
7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


OFERTA DE SUSCRIPCION 


| REVISTA EXCLUSIVA PARA USUARIOS 


Te ofrece la posibilidad de suscribirte con unas condiciones 
muy ventajosas para ti: 


1 Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará | 
lectura, programas, ayuda, entretenimiento, etc. | 


2 Consigue un práctico regalo: 


Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


Esta publicación, escrita con estilo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina. 


3 La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 


4 Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA, TODO SON VENTAJAS 


No dejes pasar esta oportunidad, suscríbete 
а “TODOSPECTRUM”, cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


BRAVO MURILLO, 377 - 5.2 A 
TELEFONO: 733 74 13/47/63/97 28020 MADRID 
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Joystick 


A pesar de los exámenes de junio, Gusánez y todos sus 
amigos «manitas» trabajan afanosamente en el-montaje de 
un joystick casero que publicamos el mes pasado. Para que 
no se queden sin conectarlo a su Spectrum por falta de 
interface, os presentamos un conector para joystick tipo 
Kempston, que os resultará sencillo de montar y muy útil 
para mejorar las puntuaciones en los juegos del verano. Y 
si no os atrevéis con la palanca, tranquilos: el Interface 
funciona con cualquier joystick stándard. 


С: este montaje podemos 

с. un interface para 

Joystick compatible Kemps- 
ton, que es el más usado por la 
mayoría de los juegos disponibles 
enel mercado. 

El circuito es de gran sencillez, 

consistiendo únicamente en un 
buffer triestado (IC 1), y un par de 
puertas lógicas (ІС 2), que st en- 
cargan de permitir el funciona- 
miento del buffer, cuando la CPU 
lo ordene. 
Para ello han de estar en estado 
bajo (lógica negativa) simultánea- 
mente la linea de ІОВО (requeri- 
miento de entrada salida), la línea 
del bus de direcciones А5, que es 
usada como chip select, y la línea 
READ, es decir, lectura. 

Con todo ello, el buffer, que es el 
que se encarga de conectar el orde- 
nador con los contactos del joy- 
stick, se pondrá en funcionamien- 
to, ya que a través de las puertas 


lógicas habremos activado las pati- 
llas del chip enable del buffer, 
que van en lógica negativa, separa- 
das en dos grupos, un enable para 
los cuatro primeros bits y otro para 
los cuatro restantes bits. 

Una instrucción IN provoca una 
activación de las líneas de: 

1. READ, por ser una instruc- 
ción de lectura 

2. IORO, por ser una instruc- 
ción de entrada salida. 

Si, además, la instrucción IN ha 


estado bajo, a masa a través de re- 
sistencias de 10 K ohmios y pasa- 
rán a estado alto, al conectar al 
Joy-stick los pulsadores. 

Veamos un poco más detallada- 
mente lo que ocurre al efectuar 
una instrucción LET A=IN N, en 
donde X es un número que en bi- 
nario tendrá 16 cifras, cada una de 
las cuales va asociada a una de las 
16 líneas del bus de direcciones 
А0,41,. А15. 


El número М en binario ha de 


El IN podrá, pues, tener como 
N, cualquier número del tipo: 


SEEFEEEEEEEEEEEE) 


en donde las cifras X pueden estar, 
indistintamente, a 0 ó a 1, aunque 
conviene que estén a 1, para no in- 
terferir con otros periféricos, como 
por ejemplo la impresora. 


Como, además, la instrucción 
IN activa las líneas ТОВО y 


saioka E 
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1. Сага superior del circuito impreso en donde se insertarán los componentes del 
circuito. Escala 1:1. 


2. Саға inferior del circuito impreso. Escala 1:1. 


3. Situación de los componentes en la placa, sobre la cara superior. Todas las resis- 
tencias son de 10 КО. El condensador, es de 100 nF. 
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Esquema teórico del interface 


sido direccionada de tal forma que 
ponga en estado bajo (activación), 
la línea A5 del bus de direcciona- 
miento de memoria, entonces el 
buffer abandona el estado de alta 
impedancia y permite la conexión 
del bus de datos con los interrupto- 
res del joystick. En este momento 
la instrucción IN lee el bus de da- 
tos, con la codificación que en ese 
momento impongan los pulsado- 
res del joystic. 

Las líneas de entrada del buffer 
están conectadas normalmente en 


zadas dele hip 741.532. 


ser tal que la línea А5 esté a cero. 
Entonces es cuando se producirá 
un chip enable (permiso para que 
se ponga en funcionamiento el 
chip IC 1). 


o7 | 06] os 


os | o3] ве | 01 [°° 

Е, TO DERECHA 
IZQUIERCA. 
ARRIBA 


Asignación de los bits del bus de datos a las posi- 
ciones de la palanca. 


NOTA.—No se ha incluido el condensador de 100 nF que va en paralelo con 
п ni la resistencia de 10 КО que pone en estado alto las dos puertas І 


READ, el buffer se activa y la va- 
riable A de la instrucción LET 
A=IN N, toma el valor que en este 
momento tenga el bus de datos. 

El bus de datos está asignado, 
‘сото se indica en la figura 5, de tal 
forma que si en el momento de leer 
el bus de datos, estamos apretando 
el pulsador de derecha y el de fue- 
go, el bus tendrá el valor en binario 
00010001 y por tanto, la varia- 
ble A tomará el valor 0 0 0 10 0 0 
1, que en decimal es A=17, infor- 
mación que será tratada en el pro- 


grama, para el cual estemos utili- 
zando el interface. 


Montaje 


El montaje carece de especial di- 
ficultad si prestamos atención en 
colocar los chips en su posición 
correcta, y soldamos el conector de 
expansión correctamente, colo- 
cando el slot en su debida posi- 
ción. Mucho cuidado en esto, si no 
queremos ver la ULA de nuestro 
Spectrur- ¿asar a mejor vida. El 
slot va en el lugar en donde falta 
una conexión al soldar el conector 
a la placa de circuito impreso. 

La placa ha sido diseñada en po- 
sición horizontal para evitarnos así 
el tener que efectuar un número de 
taladros abrumador, aunque tam- 
bién puede ponerse la placa en po- 
sición vertical, la cual, una vez ins- 
talada en una caja de plástico, to- 


mará un aspecto más profesional 
(ver fotografía). 


ЕНА EFECTUA Para probar el montaje, podre- 
R UNA INSTRUCCION IN. mos introducir el programa cuyo 
IN BIN 11041111 — IC174LS244 listado incluyo, el cual imprimirá 
A THEN PRINT АТ 10,0 — 162741532 el número que la instrucción IN 
į у — Un Conector interface q К 
— Un Conector expansión Bus lea en cada momento en el bus de 
— 5 resistencias 10 KQ 1/4 watio datos. 


— Un condensador 100 nF 
— Circuito impreso 


Alberto Piedra 


USANEZ por Vol C. Tomás 


Х.У NO PODRE OIR туз ЧГ ws EN FIN.... ТЕ неснаве V. 3 


НА LLEGADO EL MOMENTO 
MAS TRISTE DE МІ VIDA, НЕ 
DE SEPARARME DE ТЇ 

DURANTE TODO UN MES.... 


DELICIOSOS BEEPS, МЇ TO- Е MENOS... CONTARÉ LOS тезе ЖӨ MAE VOY 
CAR TUS TECLAS DE SUA- DIAS... NO TE OLVIDARE A PASAR UN MES 


МЕ Gi 
po И бен ADIOS sPzcrgum quero, ON El QL que 
Д CUIDATE MUCHO NO VEAS! 


AZ 


e 
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LISTADO: 
Como 


. programar 
las teclas de función 


NOTICIAS 


Un ordenador, por muy bue- 
no que sea, necesita buen soft- 
ware que lo acompañe. Los pro- 
gramas de Psion son muy com- 
pletos, pero по suficientes. 
Conscientes de ello Sinclair 
Store ha puesto al frente del AL 
a Juan Solsona. A pesar de su 
juventud (17 años), lleva ya cin- 
co años con los ordenadores y es 
un enamorado del QL. 

En los últimos meses Sinclair 
Store ha ampliado sus opera- 
ciones a otros ordenadores, 
principalmente MSX, sin olvi- 
dar a la familia Sinclair ni al 
QL; como nos decía Juan: «Lle- 


о? 


vamos cinco meses con el QL, 
principalmente con la contabi- 
lidad, a través de la base de da- 
tos del Archive. También esta- 
mos trabajando con el Easel, ya 
que los gráficos sólo se obtienen 
con impresoras compatibles Ep- 
son. También realizamos pro- 
gramas personalizados para uso 
concreto, como la topografía.» 

En el plano personal, nos 
confiesa sus preferencias por el 
QL: «Eso lo tengo muy claro. 
Me compraré un QL y modifi- 
caré los programas de Psion 
para adaptarlos a mis necesida- 
des.» 


¿Para 
cuándo 


el QL? 


Parece que Sinclair haya 
dado un cursillo de marke- 
ting a sus distribuidores en 
el extranjero. La comercia- 
lización de la versión «lo- 
cal» de la máquina, con una 
versión mejorada del 
QDOS, mensajes en caste- 
llano y teclado con acceso a 
los acentos y caracteres es- 
peciales, fue anunciada en 
el Informat, a mediados del 
mes de abril. 


Algo parecido hizo Sin- 
clair al anunciar la nueva 
máquina casi seis meses an- 
tes de tener una versión 
provisional en la calle. Se- 
gún todos los analistas, la 
combinación de un retraso 
en las expectativas de los 
compradores con una pri- 
mera versión comercial de- 
fectuosa han sido responsa- 
bles del mal resultado ini- 
cial de esta máquina, que 
sólo mejora ahora, dos años 
después del primer anuncio, 


Casi dos meses han pasa- 
do desde el Informat, aún 
no se han visto en España 
los nuevos ordenadores y el 
anuncio de su llegada defi- 
nitiva se retrasa de semana 
en semana. Esperamos que, 
en el momento de leer estas 
líneas, el fallo se haya en- 
mendado. También espera- 
mos que no cunda el ejem- 
plo y estas técnicas de mar- 
keting tan audaces no se si- 
gan aplicando. 


Alsi Comercial, que ya ha de- 
sarrollado programas de aplica- 
ción para Spectrum, anuncia su 
programa de gestión integrada 
para QL. Su programa permite 
el manejo de ficheros de clientes 
y artículos y facilita la realiza- 
ción de facturas, pedidos, ofer- 
tas y albaranes. Basta señalar el 
código de un artículo para que 
nombre y precio sean añadidos 
automáticamente a nuestro do- 
cumento. Un programa que fa- 
cilita el uso del QL en pequeñas 
empresas y comercios, sin nece- 
sidad de realizar programas es- 
pecíficos mediante ARCHIVE. 

Esperamos presentar en un 
próximo número el análisis 
completo de este programa, y 
también que otras casas sigan el 
ejemplo de Alsi y desarrollen 
otros productos para el usuario 
profesional. 
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OL en la 
Universidad 
de 
Strathclyde 
(Glasgow) 


La Universidad de Strath- 
clyde ha adquirido 7.000 
QLs para la consecución de 
un ambicioso plan que viene 
a ser algo así como «Un estu- 
diante... un QL». Los orde- 
nadores se conectarán a un 
miniordenador VAX. Esta 
Universidad se caracteriza 
por sus avanzados estudios 
en materia de inteligencia ar- 
tificial. 

Lógicamente, Sinclair se 


muestra particularmente or- 
gulloso por la decisión y no 
menos generoso: 250.000 li- 
bras es la cantidad destinada 
a apoyar el proyecto (aproxi- 
madamente, 50 millones de 
pesetas). 


Con el QL todo parecen ser 
siglas más o menos inteligibles. 
ОСОМ es la denominación que 
reciben los tres periféricos que 
permiten la conexión del QL 
con el exterior, ya sea una base 
de datos o distintos ordenado- 
res: QL-Interface, QL-Call y 
QL-Modem. 

QL-Interface permite la co- 
nexión con «grandes ordenado- 


res», pudiendo transmitir y re- 
cibir a una velocidad entre 75 y 
9.600 baudios. 

QL-Call une el ordenador a la 
línea telefónica, convirtiendo a 
su ordenador en una «pequeña 
central telefónica». 

Finalmente, QL-Modem es 
un auténtico modem. Trabaja 
con una velocidad de transmi- 
sión 75/1.200 ó 1.200/1.200. 


оз 


NOTICIAS 


in embargo, 
S hoy en dia los 

procesadores de 
texto son quizá los pro- 
gramas más utilizados; 
por su carácter general: 
¿Quién по necesita 
preparar un informe, 
escribir una carta, etcé- 
tera? 

Con los procesado- 
res de texto desapare- 
cen los borradores in- 
terminables, así como 
el proceso final de «pa- 
sar a limpio»: todo el 
trabajo se realiza sobre 
la pantalla, borrar no 
es ningún problema, se 
pierde el «miedo al 
error» ganando en ve- 
locidad y creatividad. 
La posibilidad de reali- 
zar cambios en cual- 
quier estadio del desa- 
rrollo de un documen- 
to añade otra compo- 
nente de libertad a 
nuestro trabajo. 

Existen dos grandes 
grupos de procesadores 
de texto: los que traba- 
jan en un formato 
adaptado al ordenador 
y después «dan forma» 
al documento de cara a 
la impresora, y los que 
muestran, dentro de lo 
posible, el texto como 
aparecerá en su forma 
final. 


QUILL, escribir 
sobre la pantalla 


El procesador de tex- 
to del QL, pertenece a 
este segundo tipo. Los 
distintos tipos de letra 
y la marginación de las 
líneas se presentan en 
su forma final, de ma- 
nera que la edición es 
más fácil, ya que los 
cambios introducidos 
se visualizan inmedia- 
tamente en la pantalla. 
La presentación se rea- 
liza con 40, 64 б 80 ca- 
racteres por linea, de- 
biendo elegir una u 


ог 


ЛЧ 
Máquina 
de escribir 
inteligente 


En la prehistoria de los ordenadores, allá 
por los 60, ningún profesional de la 
informática habría considerado 
interesante «desperdiciar» la potencia de 
un ordenador en una tarea tan poco 
importante como redactar o editar un 


texto. 


otra según las caracte- 
risticas de nuestra tele- 
visión; con monitor se 
trabaja bien a 80 са 
teres. Con televisión la 
máquina comienza por 
defecto a 64, pero si la 
calidad deja que desear 
se puede utilizar el dis-' 
play de 40 caracteres. 
El programa admite lí- 
neas de hasta 160 ca- 
racteres, más que sufi- 
ciente para cualquier 
aplicación. 

Si nuestro documen- 
to es más ancho que la 
pantalla, el programa 
nos mostrará una 
«ventana», que cubre 


la mayor zona posible 
del documento, siem- 
pre alrededor del cur- 
sor, aunque, según in- 
troducimos texto, el 
programa lo lista 'еп 
pantalla con el ancho 
disponible; al pulsar 
alguna tecla de movi- 
miento de cursor se 
realiza el ensamblado 
definitivo del texto. 
Esto reduce el desagra- 
dable scroll lateral (que 
realizará automática- 
mente е! programa 
cada vez que salgamos 
de la ventana visible) al 


mínimo, al permitir- 
nos ver en la pantalla 


el texto que estemos te- 
cleando. 

La ventana superior, 
de manera análoga a 
los demás programas 
de Psion, muestra las 
acciones que ejecuta- 
rán las teclas de fun- 
ción, así como infor- 
mación general sobre 
el funcionamiento del 
programa, desapare- 
ciendo si pulsamos F2, 
con lo que nos deja una 
presentación con 21 lí- 
nea útiles en la panta- 
lla. En el formato 1ni- 
cial son 17 las líneas de 
texto que se nos ense- 
ñan. 

Esta información se 
complementa, como 
los otros programas, 
con dos lineas de infor- 
mación en la parte in- 
ferior de la pantalla. 
Los comandos se intro- 
ducen por elección en 
un menú, pulsando la 
tecla correspondiente a 
la inicial del comando, 
tras F3. 


Lentitud excesiva 
en las primeras 
versiones 


La tecla ЕІ sirve 
para obtener ayuda re- 
lativa a los comandos y 
modos de trabajo del 
programa, y es uno de 
los casos en que el pro- 
grama carga informa- 
ción del Microdrive. 
En las primeras versi 
nes de QUILL el códi- 
go no esta optimizado, 
por lo que el programa 
resulta lento, debido al 
constante acceso a Mi- 
crodrive, tanto para al- 
macenar el documento 
como para cargar over- 
lays, cada vez que pe- 
dimos la ejecución de 
un comando no resi- 
dente en memoria. 

En la versión 2 este 
problema ha sido arre- 
glado, ya que el pro- 
grama ha sido optimi- 


zado, quedando sitio 
suficiente para todos 
los comandos. Incluso 
el almacenamiento del 
documento en micro- 
drive sólo es necesario 
si el tamaño de nuestro 
documento sobrepasa 
unas mil quinientas 
palabras соп 128K, 
pudiéndose trabajar en 
memoria en caso de ser 
menor. 


Trabajar 
en castellano 
sin problemas 


Otra característica 
interesante de la últi- 
ma versión es la dispo- 
sición de un programa 
BASIC que permite 
cambiar la correspon- 
dencia de caracteres de 
cara a la impresora; 
unido a la posibilidad 
de utilizar los caracte- 
res extendidos del QL, 
hace esta versión útil 
para e! usuario espa- 
ñol, ya que las vocales 
acentuadas y la Ñ no 
platearán más proble- 
mas con este progra- 
ma. El programa per- 
mite también modifi- 
car los valores por de- 
fecto que tomará el 
programa para impri- 
mir o almacenar: im- 
prescindible para al- 
macenamiento en dis- 
kette o impresión me- 
diante interface Cen- 
tronics. 

Los usuarios de ver- 
siones anteriores se en- 
contrarán en la impo- 
sibilidad de utilizar 
diskettes como medio 
de almacenamiento, 
además de verse obli- 
gados a imprimir en 
una impresora conec- 
tada al puerto serie. La 
configuración del pro- 
grama puede modifi- 
carse para imprimir 
subindices, superindi- 
‚сез, negrita y subraya- 
do, faltando sólo la 


cursiva para que el 
programa cubra las po- 
sibilidades habituales 
de las impresoras ma- 
triciales. Los tipos de 
letra citados se pueden 
insertar en cualquier 
texto con facilidad, y 
mezclarse libremente 
en la misma línea. 


Tan sencillo como 
escribir a máquina 


Tras este breve repa- 
so a las caracteristicas 
generales del progra- 
ma, vemos su funcio- 
namiento. Una vez 
cargado podemos co- 
menzar a teclear texto. 
El programa tiene dos 
modos de trabajo: el 
modo de INSERCION, 
en el que se trabaja ha- 
bitualmente, inserta el 
texto introducido en la 
posición del cursor. El 
modo de SOBREIM- 
PRESION cambia los 
caracteres presentes en 


la posición del cursor 
por los que vayamos 
introduciendo. Este se- 
gundo modo es más 
lento que el anterior, y 
se recomienda no utili- 
zarlo excepto en pe- 
queñas correcciones. 
El texto se introduce 
tecleando en la posi- 
ción deseada, 

Si queremos intro- 
ducir un comando de- 
bemos pulsar F3 y a 
continuación elegir en 
el menú de comandos. 
Los comandos se re- 
parten en tres menús, 
un menú principal, el 
alternativo al que se 
accede pulsando О 
(otros), y un menú de 
ficheros (F en el menú 
alternativo). El con- 
junto de comandos es 
satisfactorio, aunque 
su modo de operación 
no sea siempre el más 
cómodo. Por ejemplo, 
el comando de borrado 
о copia de bloques no 


permite retroceder una 
vez se ha comenzado a 
señalar el párrafo. Así, 
si nos «pasamos», no 
habrá más opción que 
pulsar ESCAPE y vol- 
ver a comenzar. El co- 
mando SAVE nos pre- 
gunta al acabar si que- 
remos seguir con el 
mismo documento, y si 
la respuesta es positi- 
va, nos envía al co- 
mienzo, cuando lo 
normal sería que nos 
dejara en la posición 
en que decidimos sal- 
var nuestro documen- 
to. Varios defectos 
como el indicado, ade- 
más de una sospechosa 
tendencia a «colgarse», 
empañan las primeras 
versiones de este pro- 
grama. 

En la version 2 se 
han corregido muchos 
de estos errores, y el 
programa resulta defi- 
nitivamente «profesio- 
nal». 


о 


APLICACIO 


Teclas de función 
programables 


Algunos ordenado- 
res, como el QL, dis- 
ponen de una serie de 
teclas llamadas «de 
función». Estas teclas 
suelen servir para 
simplificar el manejo 
de los programas co- 
merciales. Pero, y eso 
es importante, tam- 
bién suele existir la 
posibilidad de progra- 
mar una cadena de 
caracteres para que 
sea ejecutada por el 
ordenador cada vez 
que pulsemos esa te- 
cla. 

Las teclas de fun- 
ción programables 
harán su aparición en 
cuanto introduzcáis el 
programa que os pre- 
sentamos. Escrito en 
código máquina, y 
con su propio carga- 
dor en BASIC, no 
hace falta ensambla- 
dor para introducirlo 
en la máquina. 

El 0005, sistema 
operativo del OL, per- 
mite extender con fa- 
cilidad el BASIC de la 
máquina siempre 
desde Código máqui- 
na. Nuestro programa 
le añade a la lista de 
procedimientos resi- 
dentes en la máquina 
uno llamado «tecla», 
con dos argumento: 
un número y una са- 
dena de caracteres, 
separados por una 
coma. Si, por ejemplo 
pulsamos 


TECLA 1, 
“CLS” &CHR$ (10) 
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el ordenador borrará 
la pantalla cada vez 
que pulsemos F1. La 
concatenación de 
CHRS (10) es necesa- 
ria: en caso contrario, 
el ordenador escribirá 
en la parte inferior de 
la pantalla CLS y se 
quedará esperando 
que pulsemos ENTER. 
Esta otra manera de 
utilizar el nuevo pro- 
cedimiento es muy 
útil. Por ejemplo: 
TECLA 2, “LOAD 
MDV1_” nos dejará 


preparado el ordena- 
dor para que, pulsan- 
do F2 y el nombre de 
nuestro programa, 
podamos cargar cual- 
quier programa en 
memoria. . 
Recomendamos 
salvar el programa en 
microdrive después 
de teclearlo y antes 
de intentar ejecutar. 
El programa irá impri- 
miendo en pantalla 
cada línea de DATA 
que «pokee» correc- 
tamente. Si aparecie- 


ra algún error hay que 
detener el programa 
(CNTRL y SPACE) y 
repasar la línea inco- 
rrecta. Si по да nin- 
gún error, se puede 
proceder a probarlo. 
El programa BASIC 2 
proporciona algunos 
ejemplos de su uso, 
que esperamos os sea 
útil. 

Para acabar, quere- 
mos señalar que esta 
función se puede inhi- 
bir mediante la pulsa- 
ción simultánea de 
CNTRL y CAPS 
LOCK, lo que evita 
problemas si carga- 
mos programas que 
utilicen las teclas de 
función después de 
haberlas definido me- 


READ a$ 
prueba=0 


END FOR j 


PRINT 
ELSE 
PRINT “Linea 
END IF 

END FOR i 


POKE a+i,0 
END FOR i 
CALL a 


IF аФ (1) ='=' 


DATA 


"Falla el 


a=RESPR (706) : RESTORE 
FOR 1=0 ТО 299 STEP 20 


FOR ізі TO 40 STEP 2 
temp=conv(a$(j TO j+1)) 
POKE a+i+INT(j/2),temp 
prueba=prueba+temp 


';330+i/2;/ correcta” 


FOR i=300 TO 705 


READ pruebai:IF prueba<>pruebai THEN 
‘checksum’ en la linea"; 550+ /2 


INPUT “Quieres salvar el codigo maquina como bytes? ¡as 
OR а#(1)='5' THEN 
SBYTES mdvi pfprog cde,a,706 

PRINT “El programa se carga соп a=respr (706): 
lbytes mdvi_pfprog_cde,a:call a 
DATA "43FA001A347801104E9241FA002043FA00242149", 
"0004701C4E414E750001008C055445434C410000" , 
DATA "00000000000000000000000024790002804C226A" , 
DATA “0008204AD1FCO0000010B3CE6604226A00045389", 
DATA "47FA00C241:FA00D2121167260C0100E2660E12BC", 


1562 
989 
503 
1440 
1777 


380 DATA "00E1740141FAO0ABB5504E7543FA00A04A51660A" 
390 DATA "B2136708588BB1CB66F64E757600362B000249FA" 


, 
, 
` 


400 DATA "009CD9C37800381053446BEA121C307800E04E90" 
410 DATA "4A8066DE51CCFFF24E75347801164E92665E70F1" 
420 DATA "0C43000266567200740034369800123698020401" 
430 DATA "00300C0100016D400C0100056E3A530152420242" 
440 DATA "FFFED3C2343698020C4200506E26363C0052C2C3" 
450 DATA "41FA0036D1C130C24A42671252420242FFFE5342" 
460 DATA "30F69804548951CAFFF870004E750000E8000000 
470 DATA "EC000052F00000A4F40000F6F800014800000000" , 
480 DEFine FuNction сопу (а) 

490 LOCal ni 

500 пі =СОГЕ (aš (LEN (a$)))-48 

510 IF ni59 : п1=п1-7 

520 IF LEN(a$)=1 THEN 

530 RETurn mi 

540 ELSE 

550 RETurn ni+iéxconv(as(1 ТО LEN(a+)-1)) 

560 END IF 

570 END DEFine conv 


2025 
1998 
1924 
2471 
988 

721 

2065 
2148 
1996 
1533 


I a BASIC 


TECLA 1, cls#0:cls#l:cls#2 
TECLA 2, load тау1_ 

TECLA 3, ‘list '£CHR$(10) 
TECLA 4, mode 4‘ &CHR¥ (10) 
TECLA 5, “mode 8'2CHR$(10) 


СНЕЖ (10) 


diante nuestro pro- 
grama. Una nueva 
pulsación volverá a 
dejar las cosas como 
estaban. Si queremos 
eliminar alguna de las 
teclas, basta con asig- 
narle una cadena va- 


NOTA TECNICA: El 
programa trabaja en- 
cadenando una rutina 
en código máquina al 
programa que lee el 
teclado а cada inte- 
rrupción. Cuando de- 
tecta la aparición de 
alguno де los caracte- 
res correspondientes, 
insertar el comando 
programado. El pro- 
grama inicial se en- 
carga asimismo de 
ampliar el BASIC con 
un procedimiento 
(TECLA) que almace- 
na la cadena de ca- 
racteres que se le 
pasa como segundo 
parámetro en el espa- 
cio asignado a la tecla 
indicada por el primer 
parámetro. 


ой 


PROGRAMAS 


SAE / Código Máquina 


Año II N.o 20-Julio 1985-250 Ptas 


REV, ¡STA PARA LOS, USUARIO: 
1 $ 


en cassette 


a$(1) =Te encuentras en una 
ab(2) =estancia amplia, pe- 
a$(3) =ro vacia 'Desconfia! 
a$(4) =Ten cuidado y medita 


as(5) =tus decisiones 

a$(6) =Piensa que cualquier 
а%(7) =error sera fatal 
аса) =Sosiegate pues la 
а%(9) =busqueda sera larga 
as (10) peligrosa 

а%(11) =Tus primeros pasos 
a$(12) =han sido certeros 
а%(12) =Fortuna de novato о 
а%(14) periencia del 
a$(15) =maestro? 

a$(16) =Estate prevenido 
a$(17) =pero no temas a lo 
a$(18) =desconocido 

a$(19) =Solo la inexperien- 
a$(20) =cia puede explicar 
a$(21) =tan temprana 

a$(22) =derrota 

a$(23) =Aun es pronto y las 
а%(24) =esperanzas aun estan 
а%(25) =altas. Mas quiza 


a$(26) =pronto caigan en 
а%(27) =el olvido 

a$(28) =Tus pasos te llevan 
as(29) =por el camino co- 


recto; pero ез fa- 
il perderse 

scomienzas a descen- 
ler unas escaleras 
uyo hediondo olor 


a$(35) 
as (36) 
a$(37) 
a$ (38) 
as (39) 
a$(40) 
a$(41) 
a*(42) 
as(43) 
а%(44) 
a+(45) 
a$(46) 
а%(47) 
as (48) 
а%(49) 
а%(50) 
as(51) 
аф (52 
as (52) 
аф (54) 
аф (55) 
aš (56) 
аф (57) 
a$ (58) 
а%(59) 
а%(60) 
a$(61) 
a$ (62) 
as (63) 
a$(64) 
аф (25) 
аф (66) 
а$ (57) 
as (68) 
a$ (65) 
a$ (70) 
a$ (71) 


=indica peligro 

No es facil seguir 
=los caminos de Dios 
=Si lo haces limpia 
=tu alma de pecado 
=Algun hechizo te 

=ha protegido de tu 
fin, pero quiza no 
lo pueda todo. 
=Demuestras un gran 
=yalor siguiendo este 
=caminoj pero quizas 
=tu valentia sea 

=tu perdicion. 

=Un nuevo camino 

=que te а1зја de la 
=santidad y del реса- 
=80. 

=Has penetrado en un 
=oscuro pasadizo don- 
=de una fuerte co- 
=rriente te golpea, 
=Intentas rodear el 
=peligro pero piensa 
=que el Mal esta 

=en todas partes. 
=Acaso no temes al 
=potro de la Inquisi- 
=сіоп? 

=Si has llegado hasta 
=aqui no desaprove- 
=ches la oportunidad 
=que se te presentara 
=El aire comienza a 
=aumentar, su fuerza 
=te tira al 

=suelo y te arrastra 


Hace mucho tiempo, tanto que 
se ha perdido en el recuerdo, los 
herreros del dios de la noche traba- 
jaron durante meses en la realiza- 
ción de una joya que se llamaría 
Arla, en honor de la esposa del 
dios. 

Durante siglos, Arla, fue la luz 


Los caracteres gráficos subrayados corres- 
pondena notas gráficas. = 


a$(72) =hacia un pozo sin 
a$(73) =fondo. 

a$(74) =Has entrado en un 
a$(75) =pasillo donde las 


a$(76) =salidas se multipli- 
a$(77) =сап. Ten cuidado 
a$(78) =una de ellas sera tu 
а%(79) =fin. 

a$(80) =Llevas horas andando 
a$(81) =Empiezas a tener sed 
a$(82) ту a estar cansado 
a$(83) =Fiensa, pues a veces 
а% (ВА) =el camino mas corto 
аз (В5) =se hace el mas largo 
a*(86) =Piensa que la sed te 
a$(87) =esta agotando, no es 
a$(88) =facil que pases to- 
a$(89) =das las pruebas si 
a$(90) =te vas agotando 
a$(91) =Ten cuidado pues el 
a$(92) =cansancio puede 
a$(93) =ocultarte el ver- 
a$(94) =dadero camino 

a$(95) =Otros antes que tu 
a$(96) =murieron de sed en 
a$(97) =la busqueda de ARLA 
a$(98) =Un aire fetido 
а%(99) =te vas agotando. 
a$(100) =en la que te encuen 
а%(101) =tras 

as(10: resagio de muerte 


аФ(105) 
аф (104) 


s pronto todavia 


=pero vas por buen 
а%(105) =camino. 

as (106) =Sigue asi y lo- 
a$(107) =graras tu fin 
а%(108) =El pasadizo esta 


del reino de la noche, pero un día 
fue robada por Valar, dios de las 
dos caras. Desde entonces ha per- 
manecido en su castillo, de donde 
nadie pudo recuperarla. La leyen- 
da dice que quién lo logre recibirá 
del dios de la noche dádivas y teso- 
ros de valor incalculable. 

Para intentarlo debes internarte 
en el castillo de Valar. Allí te per- 
derás en pasillos donde se te irán 
dando pistas que facilitarán tu mi- 
sión. Si eres hábil (y tienes suerte) 
irás llegando a diversas estancias; 
en algunas de ellas podrás coger 
cosas o realizar diversos actos que 
te ayudarán a recuperar a Arla. 

Para trasladarte a través de las 


distintas salidas que se te indiquen 
deberás pulsar las teclas 5(iząda.), 
7(Adel.), 8(Dcha.) y después EN- 
TER. 

Cuando quieras realizar algún 
acto (coger, abrir, etc.) debes utili- 
zar una expresión del tipo «quiero 
+ verbo + artículo + sustantivo»; 
por ejemplo, “quiero coger la Па- 
ve”. 

Debes escribir todo en minúscu- 
las, salvo cuando se trate de un 
nombre propio. En ese caso lo 
pondrás en mayúsculas, sin tener 
que usar la expresión anterior. 

Si tras atravesar la verja no eres 
capaz de contestar a la pregunta 
que se te hará puedes escribir “no 


lo sé”,con lo que volverás al prin- 
cipio del juego. 

En el listado observarás la apari- 
ción de letras, sin aparente sentido, 
en instrucciones PRINT. Estas le- 
tras corresponden a un carácter 
gráfico y aparecen subrayadas en 
el listado. 

Una vez copiado todo el progra- 
ma debes grabarlo con SAVE 
“nombre” LINE 1. Posteriormen- 
te, y usando el programa 2, debes 
copiar y grabar la matriz en la que 
están incluidos todos los textos del 
programa. Esta matriz la debes 
grabar inmediatamente después 
del programa. 


Raúl Gonzales Bravo 48K 


a$(109) =oscuro y es dificil 
аФ(110) =guiarse. 

a$(111) =Tus vacilantes pasos 
a$(112) =te han llevado al 
a$(117) spatio 

a$(114) =Una fuente preside 
a$(115) seste patio 

a$(116) =Tu cuerpo no ha sido 
a$(117) =capaz de resistir 
a$(118) =sin agua 

а%(119) =Tu irresponsabilidad 


ha causado tu muerte 
=En esta ocasion los 
=hados te han sido 
=propicios y tu sed 
=se ha calmado 

=Los trovadores en- 
=tonan canciones que 
=llegan а ti а traves 
=de los corredores 
Este alto en el 
camino no te aleja 
=de proximos peligros 
=Dos caminos tienes 
procura ser dies- 
=tro en tu decision 
=Estuviste demasia- 
да tiempo еп la пе- 
anda atmosfera de 
la nechiceria. 

ч cuerpo по lo ha 


аъ(140) =podido resistir y 
а%(141) =has caido en puertas 
a$(142) =de tu destino 

аз‹1# as elegido el cami- 


ав (144 
аф (145) 


o de la Magia 
=Estas realmente 


at(145) =preparado? 

а%(147) =Fronto volveras a 
a$(148) =caer en las manos de 
а%(149) =VALAR. 

as(150) =Debes tomar tu pri- 
а%(151) =mera decision 
a$(152) =Que camino toma- 
А%(152) =ras? 

a$(154) =Esperamos que con 
а%(155) =sų luz se ilumine 
a$(156) =tu camino. 

a$(157) =Tres simbolos tienes 
as(i5 ante ti: La oracion 
а%(159) =La lucha у el estu- 
a$(160) =010. Cual escoges? 
a$(161) а oracion no te 
a$(152) =aleja del peligro 


а%(182) =de 1а INQUISICION 
a$(164) =Quiza tu eleccion 
a$(165) =te salve de ciertos 


a$(166) =peligros pero ahora 
a$(167) =Esta eleccion te 
a$(168) =acerca а tu destino 
аф (169) =final. 

a$(170) ienes unos instan- 
a$(171) =tes para orar. 


a$(172) =ūue tu alma se 
as(173) econforte con la 
a$(174) =plegaria 

as(175) =sus preguntas 
a$(176) =Esta escalera se 
a$(177) =hunde en los sotanos 
20178) el ¢ tillo. Ten 
a$(179) Lidado, puede ser 
as (180) м muerte 

a$(181) =Te has dejado enga- 
a$(182) snar por ias malignas 
а%(182) =artes de VALAR. 
а%(184) =Tu descuido te supo- 
аж (185) е la muerte en una 
аз (186) morra 
a$(187) =del Castillo. 
а%(188) =Has llegado al salon 
a$(189) =No te entretengas еп 
a$(190) =comer риев а la vis- 
as(191) =ta tien un tesoro 
a$(192) =mas preciado. 
a$(193) =Cuidala pues solo 


а%(194) =con ella podras lle- 
a$(195) =gar a tu destino 
ast196) =Росаѕ horas te 

as (197) =quedan en esta 
a$(198) =mansion, donde la 
a$(199) =muerte es su Reina 
аф (200) =En esta estancia 
а%(201) =se guarda la llave 


а% (2 ue te conducira 
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asta ARLA 
oscuridad te 
'sconde de tus 
=enemigos pero te 
=oculta algo muy 


a$(230) =Чо vanos pues solo 
a$(231) =con la ayuda de la 
a$(232) =hechiceria habrias 
a$(233) =sido capaz de supe- 
a$(234) =rar esta barrera. 
a$(235) =Cogiste el camino 

) =erroneo. Tus pasos 
=te han traido al ex- 
=terior del Castillo 
=y te es imposible 
a$(240) =volver al interior 
а%(241) =Has llegado a las 
а%(242) =puertas de tu 

ero. tambien matarte 8%(245) =destino final 

ola sí E as (244) п embargo te queda 
БЕРЕЕР а ate аФ (245) =por pasar una prueba 
echizo te facili- a$(246) =Cual es el nombre 
ara el camino. а%(225) el creador de ARLA? 


egaras hasta ARLA 
legaste a la Sala 

lel Mago. Sus hechi- 
os pueden ayudarte 


ото portador del as(247) 


ocos hombres han a$(226) chizo de Byrleist a# (248) =ARLA, joya del poder 
legado hasta aqui а% (227) sta barrera se le- a2477 uminoso, fue creada 
аз (223) lo te equivoques a a$(228) anta ante ti as (250) ог GIMSARD dios 
a$(224) =las puertas de ARLA a$(229) =Tus desvelos han si- а%(251) =de la noche 
ku к“ Б 
PROGRAMA 1 p 
1 DIM a$ (200,20) 70 RESTORE 80: FOR n=1 TO SO: 
3 LOAD "a" DATA aš() READ а: LET din)=ą: NEXT n 
7 FAFER 7: CLS : BORDER 7 во DATA 5,5,0,7,0.0,0,12,15.16 


8 PRINT FLASH 1;AT 10,5;"ESP 15,0,0,0 21, 5,20% 09505175 


ERA UN MOMENTO" 10,0,28,0 
9 DIM 1(50): DIM а(50): DIM d 82 DATA 0,0,45,0,47,0 
(50): DIM р(50) з DIM Ж(269: DIM 27,0,10,0,0 0,47, 0 
s (50) 90 RESTORE 100 
10 RESTORE 20: FOR n=1 TO 50: READ q: LET : 
READ q: LET і (п) =: NEXT п 100 DATA 7 7500, 7250, 7500, 72 


20 DATA 3,0,0,0,0 0,8500, 7250, 7500, 7500, 7500, 7150 


19,20,0,0,21,22,0,0,0,0,0 17300,7250,7250,7150,7150,7500,8 
500 
DATA 0,31,0,0,0,0,0,0,0,0,0 102 рата 7000,7150,7500,7250,7% 
„1,8,17, 51,3 0,0 00,7500,7250, 7250, 7800,7150, 8500 
С F „7150, 7500, 7250,7 
READ q: 104 DATA O O 
32,2895,218: 
5,14,49,15,18 „1617, 1935 


9,24,25,28,43 110 RESTORE 120: FOR п=1 ТО 35: 


42 DATA READ а: LET f(n)=q: NEXT n 
:0,28,2,9,2 ; ; ћ 120 РАТА 3,7,10,15,18,22,27,31, 
о р 35,39,43,48,52,56,60,63,67,73,79 

50 RESTORE 60: FOR n=1 TO 50: ,„82,85,90,74,97, 102,107, 110,115, 


READ q: LET pin) 

60 DATA 1,4,8,11,16,19, 2 3 
2,36,40,44,49,53,57,61,64,68,74, 
80,83,86,91,95,98,103, 108,111 
62 DATA 116,121,125,129, 
0,0,0,3100, 


q: NEXT п 120,124,128,131,134,142,146 
200 BEEF 0.8,1 

300 GO SUB 4100 

REM CASTILLO 

BORDER 7 
РАРЕК 7: 
Cen rest 


| Hogramas 


252) =Ante ti esta e 
a$(253) =Castillo de Valar 
a$(254) =en donde has de lu- 
a$(255) =char por ARLA 
a$(256) =El olor a peligro 
a$(257) =domina la estancia. 
a$(258) =Sal rapido pues los 
a$(259) =enemigos no siempre 
a$(260) =son mortales 
a$(261) =Un vampiro se 
=abalanza sobre ti 
=pillandote despre- 
=venido. 
a$(265) =La cruz que portas 
a§ (266) =te ha salvado 
а%(267) =pues su vision 
as(268) =le ha hecho huir 
289) =Tu dessuido te ha a$(274) =has fracasado. 


a$(279) =coger la llave 
a$(280) =abrir el baul 
ав(281) =coger el hechizo 
a$(282) =leer el pergamino 
a$(283) =quiero 

a$(284) =Todos tus esfuerzos 
а%(285) =han sido vanos y has 
аФ(2Б5) =caido derrotado ante 
аФ(287) =las artes de VALAR. 
аФ (288) =Otra oportunidad se 
=te presentara. 
=!!lAprovechala!! 
=Pocos entre los lla- 
=mados hombres han 
ы =sido capaces de lle- 
а%(294) =gar donde tu. 
a$(295) =Recibe la joya ARLA 
=por la que tanto 


› =costado la. vida. аФ(275) =escoger la oracion =has luchado y que 
) =Quiza otro caballero =escoger la lucha =los designios de 

) =lleve a cabo la =escoger el estudio at(299) =los dioses te sean 
) =mision en la que tu =coger el candelabro a$(300) =favorables 


Еа 


527 ІМК 1: FOR п=19 ТО 27: FRIN RAW O, 
T AT 4,п;"Ш":АТ 5,n; "ШАТ &,п;" 7: МЕХТ М 
ШЕ": NEXT n J PRINT AT 8,1; "EB" ;AT 8,1 


FLOT N+88,72: DRAW 0,3 


PRINT PAPER 1; INK 6;AT 5, 
'A RLA" 
FOR n=19 TO 27: FRINT AT 


9,140: DRAW 0,-20 


E":AT 7,n;"E": NEXT п 255: PRINT AT 
7: PRINT AT n,18 4,5ҙаФп): LET d=d+1: NEXT n 
; "E": NEXT n 700 FAUSE 200 
740 REM PRIMERA ESTANCIA. 

555 FOR №41 TO 71: FLOT INK 4 741 LET pap=7 
30,Nz DRAW INK 4343+(0.4k(N-91) 742 LET cand=0 
),0: NEXT N ; 745 LET МИМ-40: LET COM=150: LE 
560 FOR N=41 TO 71: PLOT INE 4 T FIN=153 
;92-(N-41),N: DRAW ІМК 4;140+8, 760 GO SUB 4170 
О: LET 8=8-2: NEXT М 880 PLOT 0,64: DRAW 20,20: ЖАН 


570 FOR N=41 TO 55: FLOT INK 4 
Р1401М: DRAW INK 4;115,0: NEXT 


= 


580 LET D=0 
590 FOR №54 TO 65: PLOT ІМК 4 
%150,М: LET р=р+7: DRAW INK 459 
0-0,0: NEXT М 

FOR N=9 TO 12: 
: PRINT АТ N,S; "Ш 


„610 PRINT AT 12 
C" AT S 

IS FOR N=1 TO 24 

N: DRAW -27,0: NEXT N 

620 FOR N=9 TO 22: PLOT М,72: 


215,0: DRAW 0,80: DRAW -215,0: 
DRAW о, -80 

890 PLOT 235,84: DRAW 20,-20 
900 PLOT 20,164: DRAW 
910 FLOT 235,164: DRAW 2 
920 PLOT 97,84: DRAW 0,70: DRAW 
60,0: DRAW 0,-70: FLOT 40,84: D 
RAW 0,60: DRAW 35,0: DRAW 0,-60: 
PLOT 178,84: DRAW 0,60: DRAW 35 
sO: DRAW 0,-60 

950 PLOT 127,84: DRAW 0,70 

935 LET restor=4450; LET dat=5 
940 GO SUB 3600 

944 FOR n=10 TO 20 STEG 10 

948 PRINT АТ 5,п;"І 
950 PRINT АТ 6,n5" UL" 

931 NEXT п 

961 FOR N=3 TO 10 

963 PRINT АТ N,13; "TT" 

965 PRINT АТ N,17;" TT" 

970 NEXT N 

980 FLOT 150,124: DRAW 0,-4: FL 
OT 131,124: DRAW 0,- 

990 PLOT 124,124: DRAW 0,-4: FL 
* DRAW 0,-4 

991 PLOT 43,114: DRAW 0,-4: FLO 
T 44,114: DRAW 0,-4 

992 FLOT 209,114: DRAW 0,-4: FL 
OT 210,114: DRAW 0,-4 

993 GO TO 5105 

995 PRINT АТ 19,3;"Salidas: Izq. 
Adel.": RANDOMIZE USR 3190 

996 FOR N=1 TO 400 

997 INFUT S$ 


998 LET tam=LEN s$ 


LET NUM=I(4 


LET NUM=A (4 

0): 50 TO 5300 

1005 IF tam>7 THEN IF s$=a$(287 

„1 TO 7)+a5(278,1 TO tam-7) THEN 
60 TO 1015 

1010 NEXT М 

FOR п=154 TO 156: РКІМТ АТ 

a$(n): RANDOMIZE USR 3190: 


n 

LET cand=1: 60 TO 996 

REM SEGUNDA ESTANCIA 

CLS : LET COM=157: LET FIN= 


160 
1040 LET pap=7 


1050 GO SUB 4170 

1070 RESTORE 1330 

1080 FOR N=1 TO 61 

1090 READ E,F 

1100 PRINT INK O;AT E,F;" =" 

1110 NEXT М 

1112 LET restor=3790: LET dat=13 

1115 GO SUB 3 

1120 FRINT ІМК 1;АТ 4,15;" а 

1130 PRINT INK 1;АТ 5,153" 

1140 PLOT 124,127: DRAW 0,-50 

RAW 4,-7: DRAW 4,7: DRAW 0,50 

1150 PRINT АТ 5,5;" E" 

1160 FRINT AT 7, 

1170 PRINT AT 11, E 

1180 FOR N=1 TO 2: FLOT 42+N,128 

2 DRAW 0,-42: PLOT 29,114+N: DRA 

W 28,0: NEXT N 

1190 PRINT AT 7,5;" E" 

1200 PRINT AT 8,24; 

1210 PRINT AT 9,24 HI 

T220- PRINT АТ 10257 was 

1230 FOR n=1 TO 4: PLOT 186+n,92 

: DRAW 46,-29: PLOT 230+n,92: DR 

AW -46,-2 NEXT п 

1260 FOR N=1 TO 60 

1330 DATA 6,0,7,0,8,0,9,0,10,0,1 

1,0512,0,13,0:5;10,7,10:8,10,9:1 

0,10,10,11,10,12,10,13,10,6,21,7 

¿21,8,21,9,24, 10,21, 11,21, 12,21, 

13,21,6,31,7,31,8,31,9,31,10,31, 

11,31,12,31,13,31 

1340 рата 6,1,5,2,4,3,3 

6.4,7,5,8,6,9 

1545 DATA 6,22,5,23,4,24,3,25,2, 

26,3,27,4,28,5,29,6,30 

1346 DATA 6,11,5,12,4,13,3,14,2, 
15,2,16,3,17, 4,18,5,19, 6, 20 

1348 LET espad=1: LET EFUZ=O 

50 TO 5105 

FOR N=1 TO 400 

INPUT 8% 

LET TAM=LEN S$ 

1358 IF tam>7 THEN IF S$=a$ (283 

s1 TO 7)+a$(275,1 TO TAM-7) THEN 
LET NUM=D (NUM): LET cruz=1: LE 

T CO=161: 60 TO 1370 

1359 IF tam>7 THEN IF 5%=а% (283 

„1 TO 7)+a$(276,1 TO TAM-7) THEN 
LET NUM=A(NUM): LET espad=1: L 

ET CO=164: 60 TO 1370 


з4,2,5,53, 


1360 IF tam>7 THEN IF S$=a$(283 
„1 TO 7)+a54277,1 TO TAM-7) THEN 

LET NUM= I (NUM): LET CO=167: GO 
TO 1370 
1361 NEXT М 
1370 FOR М-С0. TO CO+2 

2 PRINT АТ 21,2;А%(М) 

: RANDOMIZE USR 3190 
1376 NEXT N 
1377 60 TO 5300 
1580 REM ESCALERA 
O LET COM=176: 


LET FIN=180: C 


LET pap=7 
1400 GO SUB 4170 
1420 шаты 1605 


=1 TO 37: READ A,B 
=ë TO A 
1460 PRINT INK O;AT S,B;" =" 
1470 РКІМТ OVER 1:87 5–1,8;' 
1480 МЕХТ 5 
1490 PRINT ІМК РАР АТ 5,8; " 
1500 ВЕЕР 0.01,20 


1510 NEXT М 
1515 LET restor=4570: 
1515 GO SUB 3600 

1550 FRINT INK 
" 

1540 FRINT 
1550 PRINT 


LET dat=9 


DAT 1,8;" зании 


INE OAT 2,107" Tr! 
1123" ІНЕСЕ 


1570 PRINT ат п,5;"Ш' 
1575 NEXT s 
1580 NEXT п 


1600 PRINT АТ 11,24;" KLH" 

1605 DATA 7,0,7,1,8,2,7,2,8,3,9, 
4,8,4,9,5,10,6,9,6 

1610 ПАТА 10,7,11,8,10,8,11,9,12 
„10,11,10 

1615 DATA 12,11,12,12,12,13,12,1 
4,12,15,12,16,12,17,12,18,12,19, 
12,20, 12,21,12,22, 12,2: 12,24, 12 
125,12,26,12,27,12,28,12,29,12,3 
0.12,31 

1616 60 TO 5105 

1617 PRINT АТ 20,3;"Salidas: 
1.": RANDOMIZE USR 3190 

1620 FOR n=1 TO 400 

1630 INPUT s$ 

1640 IF s$="7" THEN LET пит=а (п 
um): 60 TO 5300 
1650 NEXT n 

1700 REM MAZMORRA 
1710 LET com=181: 


Ade 


LET fin=187: C 


1715 LET pap=7 

1720 GO SUB 4170 
1740 LET AU=15 

1750 FOR N=64 TO 175 
1760 IF М<11% THEN LET AU=AU+0. 
1770 IF М>-114 THEN LET AU=AU+0 
1780 IF No=134 THEN .LET AU=AU+O 


1790 LET DIB= (КОЖУ) +AU 
:164 THEN FLOT 0,М: DR 
FLOT 255,М: DRAW -DIB, 


1810 IF N>=164 THEN 
RAW 255,0 

NEXT N 

LET restor=4530: 


FLOT 0,4: D 


LET dat=9 


1850 FOR N=1 TO Z 

1860 NEXT N 

1870 FOR X=70 TO 100 STEF*7 
1880 FOR N=X TO X+1 


1890 PLOT М,114: DRAW 0,20 


NEXT М: NEXT X 
PRINT INK 1;АТ 13, 
FRINT ІМК 1;AT 12,2 
60 TO 5105 

60 TO 8500 

REM CHIMENEA 


О: ШЕТ fin=203 

) ТНЕМ LET com=204 
: LET fin=208: LET pap=0 
1970 60 SUB 4170 

2000 FOR N=? TO 13 

2010 PRINT AT М№,5; "=" 
2020 PRINT AT N, 16; 
2030 NEXT N 

2040 PRINT АТ B8,4; "== 
2050 FLOT 36,110: DRAW 20,56: PL 
OT 139,110: DRAW -20,56 

2051 LET restor=4450: LET dat=5 
2052 60 SUB 5600 

2060 FOR N=6 TO 14 SER в 

2070 PRINT АТ 6,N 
2080 PRINT АТ 7,М 
2090 МЕХТ М 

2100 FLOT 177,122: DRAW 25,0: DR 
AW 0,355: DRAW -33,0: DRAW 0,-35 
2110 FLOT 174,11 ркан 39,03 DR 

AW 0,41: DRAW -39,0: DRAW 0,-41 
2112 LET restor=4260: LET dat=10 

2115 60 SUB 3400 
2120 FRINT АТ 3,23; 

2130 PRINT AT 4,23; 

2140 PRINT АТ 5,23;" FG 

2142 LET baul=0 

2150 FOR N=11 TO 13 

2160 PRINT АТ М,21;"ымымымымы". 

2170 NEXT N 

2172 PRINT АТ 11,24; "с" 

2174 PLOT 167,64: DRAW 0,24: DRA 
W 56,0: DRAW о,- DRAW -56,0 
2176 PLOT 127,88: DRAW 5,5: DRAW 
46,0: DRAW 5,-5 

2182 GQ TO 5105 

2183 FRINT INE 9ҙАТ 20,3; "Salid 

as:Izq. Аде1.": RANDOMIZE USR 31 

90 

2184 FOR n=1 TO 400 

2185 INPUT s$ 

2186 LET ta 

87 IF s$ 


"ав" 


LEN s$ 
" ТНЕМ LET num: 


43: GO TO 5: 
2188 IF s$="7" THEN LET num=a(4 
4): GO TO O 
2190 IF tam 


THEN IF llave=1 A 


ND cand=1 AND s$=a$(283,1 TO 7)+ 
a$ (280, 1 TO tam-7) THEN LET bau 
151376 2210 


3 PR 
RANDOMIZE USR 


REM CAFILLA 

LET COM=170: LET FIN=174: L 
Е-7 

GO SUB 4170 


* DRAW 0,5: DRAW 
157,0: DRAW о, PLOT 50,68: DR 
AW 7,4: DRAW 143,0: DRAW 7, – 
2 E 57, „75 DRAW 0,5: DRAW 
о FLOT 56,78: DR 
AW 7 „ai DRAW 13 1 DRAW 7,-4 


DRAW 0,5: DRAW 
GEB 64,87: DR 


2280 PLOT 64,82 
129,0: DRAW b,- 
AW 7,4: 


OT ZE+aum, 6 
о: DRAW O, 


DRAW 0, -42 

2300 FLOT 20+aum, 109: DRAW 15,6 
DRAW 0,2: DRAW -15,0: DRAW O, 
2310 LET aum : NEXT п 

2315 LET restor=4450: LET dat=5 

2325 GO SUB 3600 

2330 FOR N=3 TO 28 STEF 25 


2340 PRINT INK 2 
2350 PRINT INK 2 
2360 NEXT N 
2370 FOR n=1 TO 
THEN PRINT АТ 

2380 NEXT n 
2390 PRINT AT 4,13; "MEM i ШШ 

2430 60 TO 5105 

2432 FRINT АТ 20,3; "Salidas: Izq. 
Adel. ": RANDOMIZE USR 3190 

2433 FOR n=1 TO 400 

2434 INPUT s$ 

2436 IF s$="5" THEN LET num=i (4 
2): 60 TO 5300 

2438 IF s$="7" THEN LET num=a(4 
2): GO TO 5300 

2440 NEXT п 

2449 STOP 

2450 REM HECHICERO 

2460 LET com=213: LET fin=216: L 
ET РАР=7 

2470 GO SUB 4170 

2490 FLOT 20,103: DRAW 120,0: DR 
AW 5,-38: DRAW.-130,0: DRAW 5,38 
2492 FOR N=1 TO 3 

2500 PLOT 125,127-N: DRAW 100,0 
2510 FLOT 125,143-n: DRAW 75,0 
2520 NEXT М 

2525 LET restor=4660: LET dat=12 
2530 60 SUB 3600 

2550 PRINT INK 1347 7,3: "С 
2560 PRINT 
NK 1;" а ме 
2565 FRINT АТ 2,16; "е" 

к 


2567 PRINT АТ 3,166 "5 INK 34" 
Шш "s INK О 5;"мО ы 
2570 PRINT АТ 5,16; INK 51" "3 


INK S;" MO Ур INK 43" а "р INK 
но" : 

2572 60 ТО 5105 

2574 PRINT АТ 19,5; "ба11да5: Izq. 
Аде1.": RANDOMIZE USR 3190 

2575 РОК п=1 TO 400 

2576 INFUT s$ 

2578 LET tam=LEN s$ 

2580 IF s$="5" THEN LET num=I (4 
5): 60 TO 5300 

2582 IF s$="7" THEN LET num=A(4 
S): GO TO 5300 

2584 IF tam>7 THEN IF sš=aš (283 


име: 


„1 ТО 7)+a$(281,1 ТО tam-7) THEN 
ШЕТ hech=1: 50 ТО 2600 

2586 NEXT п 

2600 FOR n=217 ТО 220: PRINT АТ 

20,3a$ (n): RANDOMIZE USR 2190: 

NEXT п 

2602 GQ TO 2576 

2608 STOF 

2609 REM ESCALERA REAL 

2610 LET com=221: LET fin=224: L 

ЕТ РАР=7: GO SUB 4170 

2615 LET restor=3960: LET dat=7 

2620 GO SUB 3600 

2630 LET VER=10 

2640 FOR N=2 TO 30 STEP 2 

2650 PRINT АТ “ЕК, №; " в" 

2660 PRINT АТ МЕК+1,М; 

2670 PRINT АТ VER+2,N; "© 

2680 IF N€20 THEN PRINT АТ МЕК» 


THEN PRINT АТ VER+ 


THEN LET VER=VER-1 
2710 IF М>20 THEN LET VER=VER+1 
2720 NEXT N 

2730 FOR N=1 ТО Z; PLOT 17,93+N: 
DRAW 65,32: DRAW 99,0: DRAW 55, 
~32: NEXT N 

2740 PRINT АТ 5,4; "рЕ"ҙАТ 3,26," 
DE" 

2750 PRINT АТ 4,4; "Е 
FG" 


2751 PLOT 107,104: DRAW O, 
АШ 48,0: DRAW 0,-65: PLOT 110,10 
4: DRAW 0,61: DRAW 42,0: DRAW O, 
=63 

2753 60 TO 5105 

2754 PRINT AT 19,3;"Salidas: Ade 
l. Dcha.": RANDOMIZE USR 3190 
2755 FOR n=1 TO 400 

2757 INFUT s$ 

2759 LET tam=LEN s$ 

7" THEN LET num=A(4 


2761 IF s$= 


THEN LET num=D (4 


2765 NEXT n 

2779 STOF 

2780 REM CRIFTA 

2790 LET РАР=7: LET com=256: LET 
fin=260 


| 


2800 GO SUB 4170 
2810 LET FX=3 LET FY=79 
2820 FOR N=1 TO 2 
2830 FLOT РХ,РУ: DRAW 0,75: 
40,0: DRAW О,—75: 
RAW 5,5: DRAW 30,0: DRAW 0,65: D 
RAW -50,0: DRAW 0,-65: PLOT РХ,Р 
Y+75: DRAW 5,-5: PLOT FX+40,FY+7 
5: DRAW .-5,-5: PLOT FX+40,PY: DR 
AW -5,5 
2840 FOR S=1 ТО 5: 
PY+6: DRAW 0, –з‹ 
+50+5: DRAW 20 
2850 LET PX=190: 
2860 NEXT М 
2870 FLOT 124,69: DRAW -24,0: DR 
AW 0,7: PLOT 100,88: DRAW 0,57: 
DRAW 14,0: FLOT 126,145: DRAW 11 
о 
, 
2880 DRAW 0,-4: PLOT 126,659: DRA 
W 4,0: DRAW 0,15: PLOT 105,76: D 
RAW 0,-4: DRAW 17,0: PLOT 136,71 
: DRAW 2,0: DRAW 0,7: PLOT 113,1 
42: DRAW -10,0: DRAW 0,-41 
2890 PLOT 96,77: DRAW 39,-10: DR 
AW 19,70: DRAW -39,10: DRAW -1%, 
-70: DRAW 5,4: DRAW 32,-9: DRAW 
17,62: DRAW -<: DRAW -17,-62 
2891 FOR S=1 ТО : PLOT 131+5,13 
1: DRAW -10,-30: PLOT 120, 124+S: 
DRAW 20,-6: NEXT 5 
2892 LET in=261: LET ter=264 
2893 60 TO 5105 
2895 PAUSE 80: FOR n=in TO ter 
2896 PRINT АТ 21,3;a$(n): RANDOM 
IZE USF 3190 
2904 NEXT n 
2905 FOR n=1 TO 80: 


DRAW 
DRAW -40,0: D 


FLOT PX+18+S, 
PLOT PX+10,FY 
NEXT 5 

LET PY=89 


NEXT п 


2906 IF cruz=1 THEN LET in=265: 
LET ter=268 

2907 IF cruz=0 THEN LET in=269: 
LET ter=274 


2910 FOR n=in TO ter 


2911 PRINT АТ 21,5;а%(п): RANDOM 
І2Е USR 3190 

2912 NEXT п 

2913 FOR m=1 TO 70: NEXT n 


2914 IF cruz=0 THEN 060 TO 8500 
2915 IF cruz=1 THEN LET num=a(4 
3): GQ TO 5300 М 

2919 STOF 


2920 REM VERJA 

2930 CLS ; LET PAP=7 
2955 LET restor=4070: 
2940 GO SUB 3600 

2950 FOR N=0 TO 13 
2765 ВЕЕР 0.03,-40 
2980 PRINT AT N,O; "Z=. 
ARARARARAAASSS= 
3000 NEXT М 
3021 1F hec 


LET dat=2 


THEN LET :d=01 FD 


R n=229 TO 254: PRINT АТ 1544,5; 
а%(п): LET d=d+1: NEXT п: GO TO 
8500 


3022 IF hech=1 THEN 
LET fin=228 

024 60 TO 5105 
3026 PAUSE 150 

БОК N=13 ТО 1 STEF -1 
3040 PRINT AT п,8;" 


LET com=225 


3060 ВЕЕР 0.05,-40: 
3070 NEXT М 

3075 FAUSE 100: 
3080 STOP 

3090 REM COMEDOR 
3100 LET llave=0: LET com=188: L 
ЕТ fin=192: LET FAP=7 

3110 60 SUB 4170 
3130 FLOT 40,64: 


FAUSE 20 


GO TO 2460 


DRAW O, 


N=64 TO 167 STEF 28: PLOT 0,N: 
DRAW 40,0: NEXT N 
3135 PLOT 5,64; DRAW O, PLOT 


24,92: DRAW O 
8 DRAW 0,27 


: PLOT 10, 
PLOT 30,148: DRA 


W 0,19 


TO 4: FLOT 90+N, 92: 


1428: PLOT 176+N,92: DRA 
W Z.-28: PLOT 90,72+N: DRAW 90,0 


LET restor=3620: 
GO SUB 3600 
FRINT AT 8,1 
PRINT AT 9,10; 


LET dat=13 


Аа] FS 


FRINT INK 2;AT 5,6": 
PRINT AT 4,63" 

PLOT 41,141: DRAW 11,0: PLO 
T 41,122: DRAW 10,15: FLOT 41,12 


S: DRAW 7,14 2 

3203 60 TO 5105 3400 NEXT N 

4 FRINT АТ 20,3; "Salidas: Ade 3410 LET р=о 

Dcha:": RANDOMIZE USR 3190 3420 FOR N=119 TO 12 


: LET D=D+1 


05 FOR n=1 ТО 400 # PLOT O,N: DRAW D,0: NEXT N 
6 INFUT 54: LET tam=LEN s$ 3430 LET 
IF s$="7" THEN LET пит=а (п 3440 FOR 5 TO LET D=D+1: 
60 TO 5300 PLOT N,99+D: DRAW 0, 16-(2*xD): NE 
IF s$="8" THEN LET num=d (n XT N 
60 TO 5300 3445 GQ TO 5105 
IF tam>7 THEN IF s$=a$(283 3450 50 TO 8500 
„1 ТО 7)+a$(279,1 ТО tam-7) THEN 3460 REM TEMPLO 
LET 11ауе=1: GO TO 3220 3464 CLS : LET d=0 
Z215 NEXT n 3465 FOR 41 TO 247: FRINT AT 


3220 FOR n=193 ТО 195: FRINT AT 4+4, ёзаф (п): LET d=d+1: NEXT п 
21,.2;а%(п): RANDOMIZE USR 3190: 3470 FOR n=1 TO 400 
NEXT п 73 INPUT s$ 


3225 60 TO 3205 75 LET tam=LEN 6% 


3238 STOP 3476 ТЕ s$=a$(250,5 TO 11) AND b 
9 КЕМ ALMENAS aul=1 THEN GO ТО 3499 

3240 LET com=235: LET fin=240: L 3477 IF tam>7 THEN IF s$=a$ (283 

ET PAP=7 s1 TO 7) +аФ (282,1 ТО tam-7) AND 

3250 GO SUB 4170 baul=1 ТНЕМ GO TO 3490 


O FOR N=64 TO 88 3478 IF s$="no lo se" THEN 60 T 
70 PLOT N-64,N: DRAW 319-N, 0 0 500 
80 NEXT М 3485 NEXT n 

3290 FOR N=90 TO 106: PLOT 24, №: 3490 LET d=0 

DRAW 231,0: NEXT М 3491 FOR n=248 TO 251: FRINT AT 

: FLOT 40,N 12+d,6;a$(n): LET d=d+1: NEXT n 
b |N: DRAW 45 3492 GO TO 2473 
„O: PLOT 186,N: DRAW 43,0: NEXT 3498 STOP 


3499 РАРЕК 7: CLS 

3500 FOR N=0 ТО 51: PRINT АТ 17, 
TO 145: LET D=D+1 N; "=": NEXT N 
DRAW 42,0: PLOT 1 
О: FLOT 186+D,N: 


O FOR N=108 TD 117: LET D=D+1 
: PLOT Z8,N: DRAW -(14+D),0: PLO 
T 84+D,N: DRAW 27-D,0: PLOT 157+ 
D,N: DRAW 27-D,0: PLOT 229+D,N: 
DRAW 26-р NEXT N 

CET D 
60 FOR N=85 ТО 95: LET D=D+i: 
PLOT N,109+D: DRAW 0,23: PLOT N+ 
73,109+D: DRAW 0,22: PLOT N+146, 
110+D: DRAW 0,2 NEXT М 


ТО 22: LET р=р+і: Р 
LOT N,65+D: DRAW 0,17 


¡APROVECHA AL MAXIMO TU SPECTRUM! 


Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 


[PARANINFO 


Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi- 
ciente de la programación BASIC 

Incluye temas como: 

* Introducción al teclado с 

e Instrumentos útiles para la programación 

+ Uso de comandos faciles 

* Como construir un programa 

• Técnicas de programación. 

e Aplicaciones prácticas 


100 pags. - 750 PTAS 


Петто 


Este libro, escrito еп estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atrás la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación 

El temario incluye 

* Reglas y herramientas del BASIC 

* La técnica de los organigramas. 

• Cómo planificar un programa. 

* El mundo de las rutinas. 

• Variables у cadenas. 

• Funciones matemáticas usuales 


109 pags. - 750 PTAS. 


CUPON DE PEDIDO 
Recorta este cupón debidamente cumplimentado y envíelo а INFODIS, 5. A. C/ BRAVO MURILLO, 377-5.% A - 28020 MADRID 


ит--------------------................. 


gastos de embalaje y envío 


Número de mi tarjeta 


TITULO — 


NOMBRE 
CALLE _ 
CIUDAD — 
PROVINCIA 


Sí, envienme el(los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 


El importe lo abonarė: POR CHEQUE O CONTRAREEMBOLSO D СОМ TARJETA DE CREDITO (VISA 0) 
(AMERICAN EXPRESS 0) (INTERBANK 0) 


Firma 


шег АМ са 


чГ.......................................,/ 


$a 
PRIMER. 
A 
REVISTA EN CASSET 
TE 
-MAYO 85 


RA 
c 
G 


25 oportunidad 
о десе? 


para ven 
aa planeta 


nera" 
фаќа, 
i GRUM? 


MAS DE 
1 Боса PTAS. 
EN REMIOS 
SES EN EL | 


INTERIOR 


3501 LET restor=4870: LET dat=13 
3502 60 SUB 2600 

3504 FOR n=5 TO 26 STEF 2 
< 23847 4,п; 
6 БРАТ бұп 


T S,n+2y "а" 
3510 FRINT INK O;AT 
3511 PRINT INK OjAT 6 


3512 PRINT INK 1;АТ 


3514 NEXT n 


3518 FOR s=24 TO 225 STEF 168: I 
МЕ 1: FOR n=1 ТО 6: FLOT s+n,111 
: DRAW 59-(2Жп),0,РІ/1.7: NEXT п 


NEXT s 
3520 FOR s=41 TO 230 ӨТЕР 168: I 
1: FOR п=1 ТО 4: PLOT s+n,111 
: DRAW 0,-71: NEXT n: NEXT 5 
3530 FOR s=10 TO 15 STEP 1: FOR 

26 STEP 21: PRINT INK 1; 
NEXT n: NEXT 5 


FRIN 


RINT AT n,dg; 
EXT n 

5544 LET 09=19: FOR п=7 TO 10: Р 
RINT AT n,dg;" LET dg=dg-1: N 
EXT п 

3546 FLOT 96,120: DRAW — 


DRA 


FLOT 160,120: DRAW DRA 
о 


EM 


FOR n=1 TO 4 INK 


FRINT 
PRINT 
5 PAUSE 
5 LET s=s+1 

IF s56 THEN LET 
NEXT n 

р O: PAUSE 100: 


FOR n=291 


š HT АТ 18.0; atd 
n): RANDOMI 190: NEXT n 
88 INE 0: PAUSE 400: 60 TO 500 
599 REM COMEDOR 
Gi E restor 


3610 FOR N=1 TO dat: READ 2%: FO 
RS TO 7: READ z: РОКЕ USR z$+ 
S,z: NEXT S: NEXT N 

3615 RETURN 
3620 BTA NAM 


"DATA "в" 
26,228 


640 DATA "C",15,15,31,63,67 


DATA "D", 248,240, 240,230, 22 
248,240, 

3660 DATA 
6,126 
3670 DATA "F",é 


10,0,0,0,126,126,12 


24,24,24,24,60, 


3680 DATA 10,0,0,0 
3690 DATA 0,0,0,0,255, 25 
5,255 


3700 DATA "1",0,0,0,0,258, 255, 25 
2,192 

3710 DATA "J",B2,123, 
24,0,0 
3720 DATA 
„66 

3730 DATA 
112,0 
3740 DATA "M",24,36,64, 194,66,36 
‚24,0 

3760 REM ARCOS 
3790 DATA "а", 


126,126,60, 


,20,36,34 


OOO SN TA) 


3,7,7,6,5,5,6,7 


3800 DATA "B", 192,224, 224,96, 160 
„160, 96, 224 

3810 DATA "С",7,7,15,62,127,255, 
252,248 


3820 DATA " 


,224,224,240,248,2 


3830 DATA 
126,60,24 
3840 DATA "E",0,0,0,0,1,3,7515 
3850 DATA "6",7,15,58,220,23 
0,192,192 
3860 DATA "H", 
55, 255,255 
3870 DATA "1",0,0,0 
128 

3880 DATA "J",0,63,64,86,72, 

› 


,2%,60,126,2 


15,24,127,62,127,2 


0,128,128, 


144,208 
DATA "L",1 
55 


10 DATA "M".,16, 200, 26,4, 66,59, 


28,160,92,64,76,8 


CALERA REAL 
24,60, 


„126,60,2 


"B" „24,60, 126,60,24,24 


24; „60 


"С", 125,60,24, 24,24,60 


"D",64,97,94,64,64,64, 
71,64 

4000 DATA "E" 
29,241,129 
4010 DATA "F", 


12729,195,51,1,129,1 


£4,64,796,48,24,12, 


"6",129,129,131,134,12 


4040 REM VERJA 

4070 DATA "A",24,24,60,255 
0,24,24 

4080 ая "B",24,24,24,60,126,60 


‚255,6 


= ENCUADRE 
O RESTORE 4130 
4120 FOR N=1 TO 
S=0 TO 7: READ z: 
z: NEXT 5: NEXT М 

зо DATA "T",60,66,165,153,153, 
165, 66,60 
4140 DATA "5", 
1,212. 121, gas 
4150 DATA "0",0,255,126,60,60,60 
‚50,126 
4160 DATA " 


READ 2%: FOR 
FOKE USR 2%+5, 


171,213, 17 


', 126, 255, 255, 255,12 


4170 РАРЕК PAP: CLS : FOR N=0 TO 


PRINT FAFER 5; INK 
т" 

NEXT N 

RETURN 

REM CABALLO 
,0,0,0,0,0,0,16,56 
10,0,0,48,48,24,24 


OJAT 14 


DATA "C",60,127,255,217,7,2 


4290 DATA "D", 60, 60, 188, 255,255, 


DATA "F" 
DATA 


41, +6,4,8,4,2 
254, 240, 76, 76, 75,3 


"H", 248, 248, 240, 208,96 
"N", 24,36,66, 153, 153,6 


"o", 255,231, 195,195,23 


REM CANDELABRO 
DATA "І",0,1,1,49,49,49,49, 


DATES s y cio КУ 
4470 DATA "К",0,128,128,140,140, 
140, 140,248 

DATA "L",192,128,128,128,12 
24 
M",24,76,66,153, 153,6 


J REM CAVERNA 
45306 DATA 
2.224,0,0 


4540 DATA 


DATA *1",127,65 
DATA 4 255,211,171 


5,255,195, 
4610 DATA 
2,0,0 
4630 REM CALAVERA 

4660 DATA "A",0,673,64,86,72,128, 
177,132 

4670 BATO BA 


,0,0,128,19 


0,254, 


"G",128,160,93,64,76,8 
3,64,255 
4674 DATA 
4,248 
4680 DATA "С",7,31,59,49,112,112 


126 


4690 DATA "D",224,248,220,142,14 
2,142,254,126 
4700 DATA "E" 
31,15 

4710 DATA "F", 
28,248,240 
4720 DATA "I 
1165, 165,0 
4730 DATA "J",126,60,60,126, 2554 
255,126,60 

4740 DATA "М",0 
63,31,15 

4750 DATA "0",0,254,255,255,254, 
252,248, 240 

4800 REM CASTILLO 
4815 DATA "A",0,0,102, 
5,255,255 

4820 DATA "Е", 255, 
0,0,0 

4825 DATA "C",255,247,2 


255,255 


DATA "р" 


1,31,56,56, 
124,120,248,248,28 


26,255, 126,102 


24 


,127,255,255,127, 


255,255, 25 


11,195,129, O, 


227,22 


15, 63, 255, 63,15, 


4834 DATA "E" „60,66, 165, 
165,66,60 

4860 REM TEMPLO 

4870 DATA "A",16,24,56,56,56,56, 
48,16 

4872 DATA "B",60,60,60,60,60,60, 
€0,60 


153,153, 


4874 DATA 255. 2595, 126,126,12 
6,126,126 

4876 DATA 0, 126, 255, 255 
126,60,60 

4878 DATA “E",3,7,7,15,15,63,127 
|. 115 

4880 DATA "F",192,224 ‚240,24 


4882 DATA 
62,0 

4884 DATA "H",176,72,132,130,66, 
36,26,1 

4886 DATA "1",13,18 
88,160 

4888 DATA "J",7,8,17, 
45,163 
4890 DATA 


s0, 62, 65, 65, 193,65, 


„65,66 


+68, 137,1 


76, 68,74, 1 


145,137,68,34, 


4894 DATA "м".197,127,145,54,68, 


16,224 

RETURN 

REM TEXTO 

60 ТО F (NUM) 

INK 9: LET FOS=15 
FOR месом TO FIN 


РЕІМТ АТ FOS,3;A$(N) 

LET FOS=F0S+1 

МЕХТ М 

INK 0: 60 TO 5(NUM) 

IF NUM THEN GO TO 5100 
INE 9: FOR N=F (NUM) TO F (NU 


ЕКІМТ. AT 21 

RANDOMIZE USR 

PAUSE 10 

NEXT N 

O INK O 

5400 G0 TO S(NUM) 
6000 STOF 
7000 FOR N=1 TO 400 
7005 IF N=1 THEN PRINT АТ 21,3; 
"Salidas: Izq. Adel. Dcha.": RAN 
DOMIZE USR 3190 
7010 IF N=1 THEN PRINT АТ 21,0; 
Es "s RAN 
DOMIZE USR 3190 
7013 INFUT 5% 
IF S$="5" THEN 
60 TO 5300 
IF 5%="7" THEN 
50 TO 5200 
IF S$="8" THEN 
GO TO 5300 
NEXT N 
STOP 
FOR: N=1 TO 400 
IF 1 ТНЕМ РКІМТ АТ 21,3; 
"Salidas: Izq. Adel.": RANDOMIZE 
USR 3190 
7152 IF N=1 THEN PRINT АТ 21,03 
" “R 


LET NUM=I (N 


LET NUM=A (N 


LET NUM=D (N 


ANDOMIZE USR 3190 
7155 INPUT S$ 

7160 ТЕ 5%="5" THEN 
UM): GO TO 5300 
7170 IF S$="7" THEN 
UM); GO TO 5300 
7180 NEXT М 

7200 STOP - 

7250 INK 9: FOR N=1 TO 400 


LET NUM=I (N 


LET NUM=A (N 


Viegramas 


7251 IF N=1 THEN PRINT AT 21 7530 IF 5% 
"Salidas: Adel.": RANDOMIZE USR UM): GO TO 


" THEN LET NUM=D (N 
о 


3190 7550 NEXT N 

7252 IF N=1 THEN PRINT АТ 21,0; 8000 STOP 

" 3:8 8500 FOR n=40 ТО 50: ВЕЕР 0.5,-п 
ANDOMIZE USR 3190 : ВЕЕР 0.5,п: NEXT п 

7260 INPUT 5% 8510 PAPER O: BORDER O: CLS 
7270 IF 8S$="7" THEN LET NUM=A(N 8550 INK 6: LET df=6: FOR s=284 
UM): GO TO 5300 TO 290: LET df=d++1: FOR п=1 TO 
7280 NEXT N 21: PRINT AT d£,n+S5ja$(s,nm) 

7490 STOP 8560 NEXT n: NEXT в 

7500 INK 9: FOR N=1 TO 400 8570 INK O: PAUSE 30: 60 TO 500 


7501 IF N=1 THEN PRINT АТ 21 
Adel. Dcha": RANDOMIZE 


PROGRAMA 2 


9000 DIM a$(300,20) 


RANDOMIZE USR 3190 

7310 INPUT S$ 

7320 IF S$="7" THEN LET NUM=A(N 
UM): GO TO 5300 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


9030. NEXT п 
9040 SAVE "а" РАТА a$() 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

sobre su precio normal. 


| (оюгома|\\ 
|| | 


SR 


== 
= 

== 

. 


АЛ 


Joaquin y Manuel 
Fernandez 1985 + 
20 REM X Reologia de fluidos х 

1000 REM k Reologia + 

1040 50 SUB 5050 

1150 CLS : GO SUB 5150 

1290 REM + Entrada de datos + 

O BRIGHT 1: CLS 

1310 PRINT AT 4,1;"A continuacio 

n podra introducir sus datos exp 

erimentales en el ordenador de 

menor а mayor";AT 12,0; "Numero d 

e puntos experimentales?" INPUT 


10 REM + 


1400 DIM a(n): DIM btn): DIM сбл 
J: DIM din) 

1410 CLS 

1500 FOR 1=1 TO n 

1510 PRINT : PRINT " Valor de F 
del punto Numero: "5 
iş: INPUT ali): PRINT" 
i) 

1520 PRINT : 
del punto 
ij: INPUT bti): 
i) 

1530 NEXT i 
1600 REM #Comprobacion de datos 
1610 PAPER 7: BORDER 6: INK О: C 
LS : PLOT 0,0: DRAW 0,175: DRAW 
255,0: DRAW 0,-175: DRAW -255,0:- 
PLOT 0,151: DRAW 255,0 

1620 PRINT AT 1,194 "уме" a "y 


PRINT " Valor de 


Numero: "; 
PRINT У — — "jbt 


Tej" g.C w" 
1630 PRINT AT 4, "s PRINT АТ 
4,7;" Tension PRINT AT 4,1 
91" Velocidad ": PRINT АТ 5,1; 


OVER 
1640 
1650 
1660 
1670 
1680 
1890 
1700 
1710 
1720 
за 

1740 


No todo va a ser jugar, еп 
este mes de julio. Aunque a 
los que están en las playas, 
tumbados al sol, no les 
parezca posible, hay gente 
que trabaja en julio. Para 
ellos, oparalos que prefieren 
dedicar el verano a 
reflexiones serias, 
publicamos este programa. 


(Udos 


THEN Б 


FOR i=143 TO 0 STEP -5 
PLOT 48,1: PLOT 131,4 1950 CLS : PRINT“ Рог favor so 
NEXT i lo S o N": PAUSE 200: CLS : GO T 
FOR ізі TO n 0 1600 

PRINT AT 1+5,2;1 1960 ТЕ 13="S" GR I " THEN I 


NPUT “Fara с 
roma: IF ме 
LPRINT : COPY 

1980 60 TO 3000 

1990 CLS L 
2000 КЕМ X Correccion de datos ж 


PRINT AT i+5, 
PRINT АТ i+5,20; 
NEXT i 

INPUT "Esta conforme?(S/N)". 


INK 2;a(i) 
INK 15001) 


lo С, sino ente 
OR m$="c" THEN 


ТЕ dé="N" ОК d$="n" THEN 6 


Para pasar pulse ENTER 


omo sabrán los que hayan 
( tenido que luchar contra la 

dinámica de fluidos, éstos 

Pueden ser de muy distintos 

tipos. Mediante un viscosi- 
metro, y unos ciertos conocimien- 
tos matemáticos, es posible anali- 
zar las características de un fluido 
determinado. 

Un viscosimetro rotacional con- 
siste en un cilindro que gira en el 
seno de un fluido. Debido a la vis- 
cosidad del fluido, el cilindro ex- 
perimenta un par de fuerzas en 
sentido opuesto a su giro. La repre- 
sentación de la velocidad de giro 


2010 PRINT АТ 8,1;"El dato a cor 
regir corresponde a una velocida 
9 о a una tension? (ул 
Tò": PRINT : PRINT " Por favor 
„comience рог los datos de ma 
yor numero de orden" 


2020 INPUT c$ 

2030 ТЕ свему" DR свену" THEN G 
о та 2100 

2040 ТЕ с%="Т" DR có="t" THEN G 
0 TO 2200 

2050 CLS : PRINT : PRINT" Р 


or favor solo V o Т": 60 ТО 2010 
2100 CLS 


2110 PAPER 1: BORDER 1: INK ё: С 
LS + PRINT : PRINT " Que numer 
o de orden de las velocidades 
introducidas desea с 
orregir?": PRINT : PRINT“ Ма 
"уп: INPUT vel 
ТЕ уе] п THEN CLS : PRINT 


No puede ser el numero " 
FAUSE 200: GO TO 2110 

CLS : PRINT АТ 8,1;"El valo 
г antiguo ега: "¿b(vel): IF уе1< 
n THEN PRINT : PRINT " Valor ma 
ximo "¿btn) 

2140 PRINT : PRINT " Ponga el nu 
evo valor";; INPUT RR: PRINT " = 
"ут PRINT RR: ТЕ vel=n THEN 60 
10 2150 


bin) THEN CLS : PRIN 
No puede ser mayor q 
ultimo de su serie" 
30 
PRINT : 


FRIN 


frente al par de fuerzas nos propor- 
ciona datos respecto al fluido: su 
viscosidad aparente y el nūmero 
estructural, gue determina el tipo 
de flujo: y tambiėn respecto a la 
bondad de nuestras medidas expe- 
rimentales: coeficiente de correla- 
ción y desviación standard. 

El programa nos presenta tam- 
bién los datos obtenidos de forma 
tabular, así como la representación 
gráfica de éstos, llamada reograma, 
y que tiene gran importancia a la 
hora de interpretar estos paráme- 
tros. 

Los resultados que se obtienen 


Desea modificar otro dato? 
(S/N " 


son de gran importancia en la qui- 
mica, la farmacia y otros campos, 
y pueden resultar de gran utilidad 
para control de calidad, optimiza- 
ción energética, etcétera. 


El programa 


Este programa ocupa 11.655 
bits, que pueden reducirse consi- 
derablemente eliminando las ruti- 
nas de comprobación. Rutinas que 
se han introducido por la necesi- 
dad de corregir algún dato sin te- 


о de orden de las tensiones 
introducidas desea c 
-orregir?": PRINT : PRINT " Ma 


ximo "pn: INPUT ten 
2220 IF ten>n THEN CLS : 
AT B,1; "No puede ser el numero 


FRINT 


û таю Z ого... 
2190 PRINT " Por favor solo S T antiguo ега: "ра(кеп! TF tenc 
о М": 60 TO 2150 n THEN PRINT : PRINT " Valor ma 
2200 cLS ximo "zatn) 
2210 PAPER 1: BORDER 1: INK 6: С 40 PRINT PRINT " Ponga el e 
LS : PRINT : PRINT " Que nuner vo valor";: INPUT XX: PRINT " = 
1 
Los datos que podra introducir 
a continuacion. son Las veloci- 
dades de giro del rotor (и еп el 
grafico) а La tension de ciza- 
Llamiento obtenida a partir de: 
м 
Te a = 
2R*PIRP2xh 
Donde М es la lectura de la 
escala (par de fuerzas) 
Para pasar Pulse ENTER 


Vegramas 


ner gue volver a introducirlos to- 
dos de nuevo a causa de un error 
де tecleo. 

Para evitar esto en lo posible, se 
ha introducido una variable que 
«sonoriza» el teclado, haciendo 
más clara la pulsación de la tecla, 
aunque esto tiene menos impor- 
tancia en el Spectrum Plus. 

Se ha introducido otra variable 
que registra si tenemos conectada 
la impresora, preguntando en cada 
caso si deseamos reproducir los re- 
sultados. 


INT XX: 
о 

2245 IF XX>a(n) THEN CLS : 
T AT 8,13" 


IF ten=n THEN 60 


PRIN 
No puede ser mayor q 


ue el ultimo de su serie" 

: PAUSE 200: 60 TO 2230 

2250 LET atten) PRINT : PRIN 

T" Desea modificar otro dato? 
(S/N) " 

2260 INPUT Ms 

2270 IF M$="S" OR Me="s" THEN Б 

¿0 TO 1990 

2280 IF M$="N" OR M$="n" THEN б 

0 та 1600 

2290 PRINT " Por favor solo 8 


60 ТО 2250 
3000 КЕМ ж Elaboracion datos ж 
3010 PAPER 3: BORDER 3: CLS : PR 
INT АТ 10,9; FLASH 1; PAPER 4; I 
NK 1; BRIGHT Calculando “ 
3020 LET LET сс-0: LET dd=0 
LET ##=%: LET узо L 
=0: LET себ: LET d= 
: + LET 4-0: LET g=O: LE 
T h=0: LET 4=0: LET j=0: LET k=0 


(9 


Una vez introducidos los datos 
(desde la línea 1300 hasta la 1530), 
se presenta en pantalla y se pide la 
conformidad o no (línea 1600). 


Si se detecta algún error en estos 
datos, se procede a su corrección 
(línea 2000) y posterior presenta- 
ción y conformidad (línea 1600). 


En el caso de que los datos sean 
correctos, se pueden sacar por la 
impresora antes de su elaboración 
o bien se elaboran directamente 
(línea 3000). 


LET 1-0: LET m=O: 
o50: LET r=0: LET w 
3030 FOR i=1 TO n 
3040 LET c=c+a(i)*b(i) 

3050 LET d=d+a(i) 

3060 LET e=e+b (i) 

2070 LET £=f+(a(i)ka(i)) 

3080 LET g=g+(b(i)xb(i)) 

3090 NEXT i 

5100 LET h=h+cte 

3110 REM x Medias + 

5120 LET к-а/п 

3130 LET 1=е/п 

3140 REM ¥ Fendiente ж 

3150 LET p=(c-dte/n)/ (£-d“2/n) 
3160 КЕМ ¥ Regresion к 

2170 LET r=(c/n=k#1)/( (SOR (f/n= 
k72))H(SQR (g/n-1^2))) 

3180 REM ¥ Desviación standar х 
3190 FOR ізі TO n 

3200 LET m=m+(k-a(i)) 

3210 NEXT i 

3220 LET w=ABS m 

3230 LET s=S0R (w^2/n) 

3240 REM ¥ Numero estructural *` 


Una vez preparados estos datos, 
presentar los resultados y en su 
caso preguntar si se desean sacar 
por la impresora (línea 3500 a la 
3700). 

Se han introducido además cri- 
terios que permiten indicar si la 
sustancia presenta un determinado 
tipo de flujo o bien sólo tiene ten- 
dencia a él, y cuál es este flujo. 

La representación gráfica (a par- 
tir de la línea 3700, comienza con 
la pregunta sobre si los límites los 
desea establecer el usuario o los 


3245 FOR ізі TO n: LET c(i)=LN a 
(1)/2.30258: LET d(i)=LN b(i)/2. 
30258: NEXT i 

3250 FOR i=1 TO n 

LET ссзссжс (i) жесі) 


O LET ##=##+(с(1)ас(3)) 
NEXT i 

LET y=(cc-ddkee/n) / tff- (dat 
dd) /n) 

0 REM ¥ Ordenada en origen ж 
3330 LET o=1-pxk 

3340 ТЕ о>-0.000001 AND ос0.0000 
91 ТНЕМ LET 
3350 ТЕ р<=0 THEN LET P$ 
3360 IF о>0 THEN LET O: 
3370 IF о<-0 THEN LET Os 
3380 ТЕ р>0 THEN LET P$="+" 
5490 REM Ж Salida resultados x 
3500 PAPER 7: BORDER 6: INK O: 
LS : PLOT 0,0: DRAW 0,17 
255,0: DRAW 0,-175: DRAW 
PLOT 0,151: DRAW 25: 
3510 PRINT AT 1,1; 
Тө" g.C s" 

3520 PRINT AT 4,2. 


OVER 1;"La ге 


cta definida e: PRINT : PRINT 
OVER 13" D="30903P$3p3"4F" 

3530 PRINT : PRINT OVER 13" r= 

"r 

2540 PRINT : PRINT OVER s= 

e 

3550 PRINT : PRINT OVER 13" N= 

y 

3555 PRINT : PRINT OVER 13" V į 

app="; 1/0; " Ср" 

3560 IF y>0.95 AND ус1.05 THEN 


LET ¿8=" Newtoniano": LET q$=" P 
resenta flujo:": 50 ТО 3610 

3570 IF y<0.95 THEN LET j$=" Di 
latante o plastico" 
3580 IF у>1.05 THEN 
eudoplastico" 

3590 IF у20.9 AND y<1.1 THEN LE 
T 9%" Tiene tendencia а flujor" 
3600 IF у<0.9 OR у>1.1 THEN LET 
Presenta +10; 


LET 3$=" Ps 


3610 PRINT : PRINT OVER 1;чд®: P 
RINT + PRINT OVER 133% 
3615 IF I$="S" ОК I$="s" THEN I 


NPUT "Para copiarlo(C),si no ENT 


Si Uci ha эшш ә Un ИЛӘ ЛЕНӘ), 
para Specirum o Commodore 92, COR 
TS para ser 


comercializado әсем Ja رك كن‎ влас 
hasia 1.000.000 «ја Pias. como 
маа ро de voyajos 


por su ежрјета ће 


Tel. 241 10 63 
28015-MADRID 


MADRID 

(91) 73396 62 
BARCELONA 

(93) 3014700 


ANUNCIESE 
por | 
MODULOS 


Hogramas 


toma el ordenador, que elegirá los 
valores: cero y el máximo valor de 
cada eje. 

Estos límites se presentan y se 
pide conformidad como en veces 
anteriores (línea 4000) y una vez 
conseguida (con corrección o sin 
ella), comprueba que puedan exis- 
tir errores que conducirían a 
ERROR B. 

A continuación se presenta la 
gráfica (línea 4150) y en su caso 
pregunta si se quiere copia o no. 

Después presenta un menú de 


@ 


opciones que pueden hacer que el 
programa vuelva para atrás, corre- 
gir alguna variable, estudiar otra 
muestra o grabarlo. 

La presentación del programa se 
realiza en la linea 6000 para evitar 
que se repita cada vez que el pro- 
grama se rompa y se desee comen- 
zar de nuevo. 

Las posibilidades de mejora del 
programa son infinitas (carga de 
datos por cinta, elaboración de da- 
tos con entrada de constantes, dis- 
tintos tipos adicionales de reogra- 


mas, etc.) pero a fin de по exten- 
derlo demasiado y considerando 
que lo fundamental de la idea y la 
utilización cómoda y con buenos 
resultados está cumplido, no cree- 
mos oportuno introducir unas mo- 
dificaciones que en cualquier caso 
son de fácil realización por quien 
tenga necesidad concreta de alguna 
de ellas a partir del presente pro- 
grama, 


Joaquin Fernández Rojano 
Manuel Fernández Rojano 48K 


ER"; Wê: 
СОРҮ 

3620 INPUT "Para pasar pulse ENT 

ER";M$ 

3650 REM % Graficas + 

3700 PAPER 7: INK 

Ls 

3710 PRINT AT 4,13" Desea establ 


OR W$="c" THEN 


BORDER 5: С 


ecer los limites de la graf 
ica о los toma el o 
rdenador?": PRINT : PRINT INK 2 
(S/N) "; INPUT L$ 
IF L$="S" OR Ls: THEN 5 
3750 
О IF L$="N" OR Lẹ$="n" THEN G 
заоо 
CLS : PRINT + PRINT " Fo 
r_fayor solo S o М": 60 TO 3710 
3750 CLS + PRINT : PRINT " Val 
or maximo del eje Y de 
la grafica": INFUT Ym 
3760 CLS : PRINT : PRINT " Val 
or maximo del eje X de 
la grafica": INPUT Xm 
3770 CLS : PRINT : PRINT " Val 


or minimo del eze Y de 


la grafica": INFUT Ymi 
3780 CLS + PRINT + PRINT " Val 
or mínimo del eje X се 

la grafica": INPUT Xmi 
2790 60 TO 4000 
3800 LET Ym=b (п): LET Хт=а(п) 
3810 LET Ymi=0: LET Xmi=0 
3820 60 TO 4000 
4000 CLS : FRINT : PRINT " Val 
ar maximo del eje Y de 

la grafica=";Ym 
4010 PRINT : PRINT " Valor min 
imo del eje Y de la 


grafica="; Ymi 


4020 PRINT : PRINT " Valor max 
imo del eje X de la 
grafic: Е 

4050 PRINT : PRINT " Valor min 
уто del eje X de la 
grafica=";Xmi 

4040 PRINT : PRINT " Esta con 
forme? (S/N): 

4050 IF МФ-"5 

0 TO 4080 


ж Agua а 25 а.с 


* 


La 


recta definida єз: 


D=+0.561448657 +0. 39602608F 


r=0. 3599302298 
£=5.4523921E-2 
N=0. 537374335 


U aPpp=1.0039293 


РЕЈ јо: 
Newtoniano 


Presenta 


= СР 


4060 IF Me="N" OR ns="n" THEN С 
LS : PRINT : PRINT " Ahora corr 
egira los limites": PAUSE 200: 6 
0 TO 3700 

4070 CLS : PRINT : PRINT " Рог 
favor solo 8 о N": 60 TO 4000 
4080 IF Хпі>а(1) OR Ymi>b(1) THE 
PRINT " Limites no validos 
PAUSE 200: GO TO 4000 


4110 ТЕ Xmė=Xmi THEN CLS : PRIN 
T : PRINT Limites no validos 
"; PAUSE 100: 50 TO 4000 


4120 LET z=195/Xm: LET q=143/Ym 

4130 LET ydy=LEN STRS b(n) 

4140 LET xdx=LEN STR$ a(n) 

4150 PAPER 1: BRIGHT 1: BORDER 1 
INK 1: CLS 

4160 FLOT 0,0: DRAN 0,175: DRAW 

255,0: DRAW 9,-175: DRAW -255,0 

4170 INK 7: PLOT 29,12: DRAW 0,1 

54 

2180 PLOT 34,17: DRAW 212,0 

4190 LET dyd=20-(qkYm)/8: LET dx 

d=(zaxm)/8+5 


4300 LET ydy=LEN STR$ Үт: IF ydy 
5 THEN GO TO 4320 

4510 PRINT AT dyd, 1; Ym;AT dyd, 45 
OVER 13"-": GO TO 4330 


4520 LET ҮФ-5ТКФ Ym: PRINT AT dy 
d,13YS( TO 3);AT dyd,4; OVER 1)" 


4520 LET xdx=LEN STR$ Xm: IF хах 
>3 THEN 60 TO 4250 

4340 PRINT AT 20,dxd-3:XmsAT 20, 
dxd; OVER 1;"к“: GO TO 4360 
4350 LET X$=STR$ Xm: PRINT AT 20 


5 X%( TO 3)58T 20,dxd; OVER 
ту 

4560 LET ddd=LEN STRS Ymi: ТЕ dd 
d>3 THEN GO TO 4380 

4370 PRINT AT 18,1;Ymi: GO TO 43 
эо 

4380 LET D$=5TR$ ddd: PRINT AT 1 
8,1:0%( TO 3) 

4390 LET www=LEN STRS Xmi: IF ww 


м>4 THEN 60 TO 4410 

4295 PRINT АТ 20,224" (F)": PRINT 
AT 5,2; OVER 1; "(0)" 

4400 PRINT АТ 20,6;Xmi: GO TO 44 
20 

4410 LET W$=STR$ www: 
Oré WS TO 4) 


PRINT AT 2 


4420 LET fgh=0: LET hgf=0 
3430 FOR ізі TO n 

4440 LET tyu-INT ((ali)+=+29)-=4 
Xmi): LET poi=INT ((b(1)4q+17)=9 
жҮті) 

4450 CIRCLE tyu,poi,3 

4480 LET fgh=tyu: LET hgf=poi 
4490 NEXT 1 

4500 LET fgh=0: LET hg“ 
4550 FOR ТО п: LET tyu=INT ¢ 
Саі) 2+39) -z#Xmi): LET розетнт 
(tb ti) #q+17-q#Yni) 

4560 IF i=1 THEN PLOT tyu,poi 
4570 ТЕ i>1 THEN DRAW tyu-fgh,p 
ої-һд# 

4560 LET fgh=tyu: LET hgf=poi 
4590 NEXT i 

4600 IF 1%="5" OR I$="s" THEN I 
NPUT "Para copiarlo(C) si по ENT 
ER": MS 

4610 IF Т®="п" OR Tem" THEN G 
0 TO 4630 

4620 IF M$="C" OR Ms=" 
PRINT + LPRINT N$ 


" THEN L. 
вуч 9.0 


“Para pasar pulse EN 


Agua а 25 g.C 


TER"; P$ 

4640 PAPER б: INK 1: BORDER 4: С 
LS 

4650 PRINT : PRINT INK 2; PAPER 


4; FLASH 1;AT 1,4;" Elija opcio 
п: ": PRINT : PRINT "1.-Conectar 
impresora o sonrizar кесі 
ado": PRINT + PRINT "2.-Comproba 
r nombre у temp.": PRINT + PRINT 
, "3, -Comprobar datos": PRINT + P 
RINT "4.-confirmar resultados 
4660 FRINT + PRINT "S.-Comprobar 
limites de grafica"; PRINT : PR 
INT "6.-Visualizar grafica": PRI 
NT : PRINT "7.-Estudiar otra mue 
stra": PRINT : PRINT "B.-Grabar 
programa": PRINT : PRINT "9.-Ver 
instrucciones" 
4670 LET K$=INKEYS 


" THEN GO SUB 5050 
+ 60 TO 


4490 IF THEN 60 SUB 5150 
4700 IF THEN GO TO 1600 
4710 IF THEN GO TO 3000 
4720 IF 5" THEN 60 ТО 3650 
4730 IF b" THEN 650 TO 4120 
4740 IF 7" THEN бй TO 1050 


4750 IF K$="8" THEN SAVE "Reolo 
gia" LINE 8000 
4760 ТЕ K$="9" THEN 
4770 60 TO 4650 
5050 PAPER 1: ТМК 7: BORDER i: C 
Ls 

5060 PRINT : PRINT " Tiene conec 


60 SUB 6050 


tada la impresora PRINT + PR 
INT " S/N": INPUT I$ 
5070 IF 1%="5" OR I$="s" THEN C 


LS : БО TO 5100 
5080 IF 1$="N" OR I$="n" THEN C 
LS : 60 TO 5100 

5090 PRINT : PRINT " Por fa 
Мог solo S о М": 60 TO 5060 
5100 PRINT AT 4,15" Quiere sonor 
izar el teclado?": PRINT : PRINT 
" S/N"; INPUT 8% 


5110 ТЕ Ss="S" ОК S$="s" THEN Р 
ОКЕ 23409, 255: RETURN 


5120 IF Ss="N" OR S$="n" THEN Р 
ОКЕ 23609,0: RETURN 
5150 PRINT : PRINT " Por fa 


vor solo S o N": 60 TO 5100 
5140 RETURN 

5150 PAPER 7: INK 0: 
Ls 

5160 PRINT AT 4,1 
mbre del producto 


BORDER 6: С 


" Ponga el no 
"а PRINT : PRI 


ит" estudiado": INPUT 
Ns 

5170 CLS : PRINT AT 4, Ponga 
la temperatura de la ": PRINT ¢ 


PRINT " 
os": PRINT 
ntigrados 
5180 PRINT AT 4,2 


experiencia en grad 
PRINT " ce 


PRINT : PRINT " Temp.= ";T$;" 
grados cent.": PRINT : PRINT : P 
RINT " — Esta conforme?(S/N)": 
INPUT D$ 

5190 IF Ds="S 
LS : RETURN 
5200 IF Ds: 


OR Ds="s" THEN C 


N" OR Ds="n" THEN C 
LS : PRINT : PRINT" Cerri j 
а sus datos": GO TO 5160 

5210 CLS : PRINT : FRINT " Рог 
favor solo S o N": 60 ТО 5180 
8050 BRIGHT 1: FLASH O: PAPER О: 
BORDER O: CLS 

8060 PRINT AT 2,2; FLASH 1; PAPE 
R ó; BRIGHT 1; INK 2;" Pare el с 
assette “: PRINT AT 10,10; FLASH 
1) BRIGHT 1; PAPER 1; INK 7;" R 
eologia ": PRINT АТ 19,2; INK 75 
Joaquin y Manuel Fernandez 
T 21,15;1985 

6070 FOR v=1 TO 18 

6080 READ a,b: ВЕЕР a,b 
6090 NEXT y 

6100 DATA .8,0,.4,-5,.8,0,.4,-5, 
.4,0,.4,-5,.4,0,.4,4,1,7,-8,5,.4 
а2.-8,5,.4,2,.4,5,.4,2,.4,-1,:4, 
2,.8,-5 

6180 PAPER 1: INK 7: BORDER 1: B 
RIGHT 1: CLS : PRINT + PRINT : P 
RINT " Este programa le permit 
Фза _ partir de datos experimen 
tales,cbtener directamente los p 
arame- tros y reogramas del prod 
чето estudiado а la temperatura 
dada" 

6200 PRINT : PRINT INK éj" Ра 
ra pasar pulse (ЕМТЕК) ": INPUT z 
$: CLS 

6210 PAPER 1: INK 7: BORDER 1: С 
LS : PLOT 90,112: DRAW 40,50,Р1/ 
4: DRAW -60,0,F1/4: DRAW O, “bO: 
DRAW 28,0: DRAW 0,60: PLOT 150,5 
2: DRAW -60,0,PI/4: DRAW 60,0,Р1 
741 DRAW -0,60 

6220 PRINT AT 11,15; 
6230 PLOT 42,112: DRAW 20,0: DRA 
М 0,-80: DRAW 116,0: DRAW 0,80: 
DRAW 20,0 

6240 FOR i=1 ТО 36 STEF 3i PLOT 
6240 FOR 1=1 TO 36 STEP 3: PLOT 
118,112+1: NEXT i 

6250 PLOT 67,9: 
T AT 9,8; OVER 1 
R" 

6260 PLOT 110,140: DRAW 13,0,PI/ 
4: PRINT AT 4,15; OVER 15 "2"jAT 
4,165; "W' 

6270 PRINT AT 1,3;" Viscosimetro 
Rotacional ": INK é: PRINT AT 2 
0,35 "Para pasar pulse ENTER": IN 
РОТ z$ 


"ЗАТ 15,15 


DRAW 18,0: PRIN 
< >"ҙАТ 10,91" 


6280 CLS : INK 7: PRINT : PRINT 
+ PRINT " Los datos que podra i 
ntroducir а continuacion son la 


5 veloci- dades de giro del roto 
r (4 еп el grafico) y la tension 
de ciza- llamiento obtenida a p 
artir dez": PRINT : PRINT " 

М": PRINT" T 
- : PRINT " RAPIAROZ 
же: PRINT + PRINT " Donde Mes 
la lectura de la escala 
(par de fuerzas)": PRINT : PRINT 


INK 61" Рага pasar pulse ENT 
ER": INPUT z$ 
6500 RUN 


E] Quisiera preguntarles si sería 
posible adaptar el programa AR- 
CHIVO del número 4, páginas 55 
y 56, para utilizarlo en cassette, 
pues no dispongo de Microdrive, y 
el programa me resultaria de mu- 
cha utilidad para ordenar articulos 
de revistas, libros, etc. ¿Me po- 
drían indicar las modificaciones 
necesarias? 


Nicanor Floro Andrés 
Leganés 


En principio es dificil adaptar 
el programa а que se refiere para 
que funcione sin Microdrives, pues 
se basa en la creación de ficheros 
de datos directamente en los cartu- 
chos, lo cual en cassette es imposi- 
ble. Siempre le queda la posibili- 
dad de programar su propia base de 
datos que esperamos nos envíe. 


Os escribo porque ha desperta- 
do mi curiosidad la portada del 
ejemplar número 9 basada en la ya 
tan popular serie «V». Soy un asi- 
duo seguidor de la serie y de su re- 
vista, y esta portada me ha gustado 
mucho, por lo que os pido si seríais 
tan amables de mandarme el lista- 
do de dicha portada para así poder 
hacerla en mi casa. 


Esteban Lorenzo 
Tenerife 


[R]Nos alegramos de que te haya 
gustado esta portada y nos gustaría 
poder mandarte el listado que nos 
pides, pero debes saber que dicho 
listado, por tener que incluir la to- 
talidad de el archivo de presenta- 
ción visual, llevaría una lista de 
DATAS compuesta por 6.912 nú- 
meros entre 0 y 255, lo cual pensa- 
mos que te resultaría demasiado 
pesado de teclear. Por ese trabajo 
creemos que resultaría más intere- 
sante que consiguieras un progra- 
ma de dibujo y crearas tu propia 
obra de arte de la que puedas sen- 
tirte orgulloso (todo es proponérse- 
lo). 


Por qué no publican periódi- 
camente partes de la ROM del 
Spectrum desensamblada y co- 
mentan las diferentes subrutinas? 
Creo que una sección así interesa- 
ría a la mayoría de los lectores. 


Ramón Aliaga 
Barcelona 


[R] Nosotros también considera- 
mos que este tipo de artículos es in- 
teresante y práctico, dada la total 
falta de publicaciones en castellano 
dedicadas a este tema tan imprecin- 
dible para el programador en códi- 
go máquina. Si sigues fiel a ésta tu 
revista comprobarás que próxima- 
mente se iniciará una serie que es- 
peramos tape este hueco y ayude a 


todos los que empiezan a progra- 
mar en este lenguaje a conocer me- 
jor el sistema operativo del Spec- 
trum. 


Р 


En el libro Understanding your 
Spectrum, del doctor lan Logan, 
al citar la instrucción IM 2, dice 
textualmente: 

«La interrupción mod: 2 no se 
usa en el sistema del Spectrum 
pero es la más poderosa. En este 
modo, un dispositivo periférico 
puede indicar al microprocesador 
cuál de las 128 subrutinas diferen- 
tes se seguirán al recibir una inte- 
rrupción. El contenido del registro 
Ту un byte suministrado por el dis- 
positivo periférico se usan juntos 
para formar una dirección de 16 
bits que es usada entonces para di- 
rigir a una tabla vector que previa- 
mente habrá sido preparada en la 
memoria.» 

En el número 2 de TODOSPEC- 
TRUM aparece el uso de IM 2 en 
la función RESET. En este caso, y 
en otros que hemos podido estu- 
diar, la dirección de 16 bits está 
formada por el contenido del regis- 
tro I como byte más significativo (I 
рог 256) y el byte menos significa- 
tivo ha sido siempre 255. 

Desearía saber si es posible em- 
plear otro valor distinto de 255 en 
este hyte y cómo lograrlo. 


José Garcia 
Valencia 


[Е] Сото bien señala el doctor Lo- 
gan ese byte lo suministra el dispo- 
sitivo periférico que genera la inte- 
rrupción. En el caso del Spectrum 
el único periférico que, en princi- 
pio, las genera es la propia ULA, 
que da el conocido 255. Ahora 
bien, si por el bus de expansión co- 
nectáramos un dispositivo que (por 
medio de la patilla INT del bus) in- 
terfiriera las interrupciones de la 
ULA, tendríamos un nuevo siste- 
ma de interrupciones que podría 
utilizar cualquier otro número en 
este byte bajo. No conocemos nin- 
gún periférico que actualmente uti- 
lice este sistema, pero si algún lec- 
tor realiza un montaje que lo utiliza 
esperamos ansiosos que nos lo en- 
vie. 


Es posible utilizar los coman- 
dos del BASIC ampliado (por me- 
dio del Interface 1) desde nuestros 
programas? ¿Se pierden estos pro- 
gramas si hacemos NEW? 


Javier Boisch 
Barcelona 


[R] Cuando utilizamos las posibili- 
dades de ampliación del intérprete 
BASIC que nos ofrece el Interface 
1, lo que estamos haciendo es ex- 
tender el análisis de error del Spec- 
trum. En efecto, si el sistema ope- 
rativo detecta un error en la máqui- 
па sin Interface 1, se Пата а la ru- 
tina de la dirección 8. Esta impri- 
me el mensaje de error y devuelve 
el control al editor. Si el Interface 
Í está conectado la llamada a esta 
rutina «página» la ROM de 8K del 
Interface, que intenta averiguar si 
se trata de uno de los comandos 
propios de este. Si no es así, salta a 
la dirección a la que apunta la nue- 
va variable del sistema VECTOR, 
situada en RAM y que inicialmente 
vale 01F0H (rutina de error del /n- 
terface. Si en esta variable «pokea- 
mos» la dirección de inicio de nues- 
tra rutina de ampliación, cada vez 
que se produzca un error sintáctico 
el control pasará a ésta, donde de- 
beremos comprobar que la orden 


introducida es uno de nuestros co- 
mandos adicionales, y, si es así, 
ejecutarlo. 

Esta larga introducción sirve 
para indicarte que tus nuevas ins- 
trucciones entran en pie de igual- 
dad con las del Interface 1, por lo 
que podrás utilizarlas siempre que 
previamente hayas cargado la ruti- 
na en código máquina que las intro- 
duzca, y hayas inicializado la varia- 
ble VECTOR a su valor correcto. 
Si no lo has hecho, comprobarás 
que el ordenador se niega a admitir 
tus comandos ampliados. 

Cuando hacemos NEW la má- 
quina limpia toda la memoria por 
debajo de RAMTOP. Si tu rutina 
estaba por encima de éste seguirá 
estando ahí. Sin embargo, VEC- 
TOR habrá sido vuelto a su valor 
inicial, por lo que para volver a 
usar estos comandos deberás intro- 
ducirle de nuevo la dirección de tu 
rutina. Con estas salvedades, los 
comandos del BASIC ampliado 
son idénticos a los que residen en 
ROM. 


¿Por qué a veces tarda tanto 
tiempo en cargarse y grabarse un 
programa de pocas instrucciones? 
¿Se debe quizá a la reserva de me- 
moria producida por los DIM? 


Francisco J. Santabárbara 
Caspe 


[R] En efecto, cuando grabamos un 
programa BASIC, con ėl se alma- 
cenan tambiėn todas las variables 
que en ese momento estén defini- 
das. Al ejecutar una sentencia 
DIM el ordenador hace hueco para 
un determinado número de varia- 
bles numéricas o alfanuméricas. Si 
el número de variables que hemos 
DIMensionado es elevado, lo nota- 
remos a la hora de cargar el pro- 
grama. 

La solución a esto es simple, de- 
beremos borrar todas las variables, 
antes de grabar el programa, me- 
diante el comando CLEAR; con lo 
cual ahorraremos, además de tiem- 
po, espacio en la cinta que utilice- 
mos. 


ZX Spectrum 48K. Impresora SEI- 
KOSA GP-50-S (no precisa interface). 
26.000 pesetas cada cosa. Junto o se- 
parado, con alimentación, cables, ma- 
nual en castellano, cintas demostra- 
ción... como nuevo. Tel: (983) 
233010. 


VENDO CAMARA DE VIDEO 
SONY B/N EN GARANTIA 
MODELO HVM-100 CE CON 
ADAPTADOR PARA 
CONECTAR EN 
CUALQUIER VIDEO 
DOMESTICO POR 50.000 
PTAS., О LA CAMBIARIA 
POR UN MICRODRIVE CON 
INTERFASE E IMPRESORA 
SEIKOISHA GP-50. 
INTERESADOS DIRIGIRSE 
AL TELEFONO (954)36 49 02 
DE SEVILLA A PARTIR DE 
LAS 10 DELA NOCHE 
PREGUNTAR POR EMILIO. 


«Deseo tomar contacto con usuarios de 
ordenadores MSX, mi dirección es: 
Antonio Marín. Garita, 19. 07015 Pal- 
ma de Mallorca. Tel. (971) 40 36 59. 


DESEO EN- 
TRAR EN CON- 
TACTO POR 
CORREO CON 
USUARIOS DEL 
QL, PARA IN- 
TERCAMBIAR 
OPINIONES, 


Vendo ampli 

externa de 16 a 
48K para Spec- 
trum con garantia 
Indescomp por 
7.000 pesetas ad- 


junto envío prue- 
Pese s [р 
perfecto funciona- NO COMER- 
miento. Interesa- CIALES. PRO- 


dos dirigirse a ПОН KES 
José Francisco PUESTA. ML 


Pujalte. Avda. 
lamanca, 7. 5.9 D. 
03005 nte. 


Tel.: 22 81 43. TETARA S A 


10002 GUADA- 
LAJARA. 


Vendo sintetizador de voz Сштаћ 
Mspeech para Spectrum. Incorpora 
equipo de amplificación del sonido 
del ordenador porel altavoz del 
televisor. Sólo un mes de uso. Con 
caja, libro instrucciones y cinta 
demostración. 7.500 pesetas. Victor. 
Tel.: (91) 276 79 97 


Su anuncio puede ir aquí. Escribanos a 
«El corcho». TODOSPECTRUM. 
Bravo Murillo, 377. 5. A. 28020 
Madrid. 


[NOTA DE REDACCION 


Problemas con el montaje 
del lápiz óptico 


Varios lectores se quejan de que, 
en los programas de control del 
montaje de lápiz óptico publicados 
en el número 7, todos los progra- 
mas en código máquina incluyen 
el resultado de su ensamblado en 
hexadecimal, excepto el programa 
4, ya que Gusánez tenía hambre y 
se comió un trozo de listado. 

Para mayor facilidad de aquellos 
que no disponen de un ensambla- 
dor y desean introducir el progra- 
ma, incluimos la lista de DATAs 
necesaria para «pokear» el progra- 
ma. La localidad de comienzo es 
65135, y se debe salvar el resultado 


como CODE después de introdu- 
cirlo. No olvidéis hacer CLEAR 
65134 antes de introducir el códi- 
go. 


[Р] soy el autor del programa 
«IMPRESION DE LA PANTA- 
LLA» que publicasteis en la sec- 
ción de Preguntas y Respuestas del 
número de mayo. Por alguna ra- 
zón mi nombre no figura junto al 
programa y me gustaría saber por 
qué. ¿No creéis en la propiedad in- 
telectual? Esperando pronto tener 
noticias vuestras me despido con 
un saludo cordial. 
Rafael García 
Madrid 


20 DATA 208,62,247,219,25 


[ зо рата зз,2,0,34, 235, 235,46, 3,34,237,255,62,127,219,254,15 
15,48,232,62,239,219,254, 15,93, 129,92 

30 DATA 56,2,203,198,62,223,219,254,15,56,2,203, 134, é, 10,17 

40 DATA 96,88, 175,203,70,40,2,62,56,18,19,16,282,30,128,175 

50 DATA 6,10,203,70,32,2,42,54, 10,19; 16, 252, 62,258,50,237 

60 DATA 255,167,8,8,63,42,235,255,48,3,42,237,255,8,175,89 

70 DATA 4,7,246, 1,16, 251, 29, 125, 47,230)7, 164, 71,121,40,% 

80 DATA 7,16,253,79,8, 121, 48,5, 50, 248,295,24, 3,50, 247, 255 

50 DATA 8,229, 58, 248, 255, 79, 58, 247, 255, 205, 195,255, 205, 204, 255, 56 

100 DATA 18,58,248, 255, 47, 79,58, 247, 255, 205, 175, 255, 205,204, 255, 83 

110 DATA 48, 1,20, 225, 194, 111,254,48,11,125,80,180,79,188,202,111 

120 DATA 254,97,24, 170, 124,8,48, 13,8, 50, 238, 255, 58,237,258, 31 

130 DATA 50,237, 255,24, 142,8, 50,234, 235, 58, 295,255, 169,40, 7,31 

140 DATA 50, 235, 255, 195,194,254,17,5,0,33,53,0,205, 161,3,58 

150 DATA 248,255,79,58,247,255,33,125,92,203,70,40,1,47,87,8 

140 DATA 33, 239, 258,6,6,122,203,35,49,10;8,52,4,8,182,24 

170 DATA 2,8, 165,119,35,16,238,33,0,89,54,7,44,52,251,93 

180 DATA 205,64,17,239,255,6,8,26,119,47,44,44,44,119,45,45 

170 DATA 45,36,19,16,242,35,3,69,17,259,255,26,6,8,7,48 

200 DATA 2,54,56,44,16,248,19,62,24,133,111,48,238,195, 111,254 

210 DATA 33,19,89,87,203,33,56,1,175,6,8,7,54,0,48)2 

220 DATA 54,56,35,16,246,62,24,133,111,216,122,24,291,17,80,4 

230 DATA 42,127,219,254,230,64,40,7,27,122,179,32,2 

240 DATA 32,16,254,42, 127,219,254, 230,64,200,24,234 —;0 


52221,6 


¡ESPERA 605 ЛІРА FAVORS 
15Е TE HA SALIDO UN PELO!) 


AE 


El Esperamos sepas disculpar este 
error nuestro, responsable de que 
tu nombre no apareciera junto al 
programa que tan amablemente 
nos enviaste. Nosotros sí creemos 
en la propiedad intelectual, y prue- 
ba de ello es que esta sea la prime- 
ra vez que se nos queda en el tinte- 
ro el nombre de algún lector- 
colaborador. Repetimos nuestras 
disculpas y quedamos deseosos de 
que este lapsus no te haga perder la 
confianza en ésta tu revista y sigas 
mandándonos tus programas y co- 
municándonos tus sugerencias. 


——————— 
La venganza de Gusánez 


En el pasado número de junio, 
Gusánez volvió a cometer una de 
sus fechorias, con el resultado de 
que en el programa Ediset (pág. 
64) las líneas 1610/2005 se impri- 
mieron por duplicado y defectuo- 
samente, Afortunadamente al ha- 
ber dos copias de cada línea ningu- 
na de ellas quedó sin imprimir co- 
rrectamente; bastará que eliminéis 
las seis que sobran para poder dis- 
frutar de este programa con nor- 
malidad. 

Esperamos sepáis disculpar es- 
tos pequeños despistes, ajenos a 
nuestra voluntad, y que, pocc a 
poco, vamos subsanando. 


Guía del comprador de Todospectrum 
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Si deseas colaboraren TODOSPEC- 
TRUM remite tus artículos о progra- 
mas a Bravo Murillo 377, 5 *А. 28020 
Madrid. Los programas deberán estar 
grabados en cassete y los artículos 
mecanografiados. 

А efectos de remuneración, se anali- 
za cada colaboración aisladamente, es- 
tudiando su complejidad y calidad 


L En el artículo «Un 
poco de código máqui- 
na» del número 8 hacen 
referencia a un progra- 
ma que no aparece. ¿Se 
trata de algún acertijo? 


Pedro Ridrueles 
Cáceres 


® Sin duda la culpa es 
de Gusánez. El progra- 
ma «oculto» a que ha- 
ciamos referencia, es el 
siguiente: 
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пг еп codigo m 


En ние 


ACLARACION 


Hemos recibido diver- 
sas llamadas acerca del 
artículo «Amplía tu me- 
moria... a 48K», «acu- 
sándonos» de estar un 
poco confuso. 

El siguiente esquema 
ilustra los distintos com- 
ponentes y circuitos ne- 
cesarios, ¿aclarado? 


MODULADOR 


Asimismo, hemos te- 
nido noticias de la exis- 
tencia de una nueva ver- 
sión del Spectrum: issue 
4. Se trata del modelo 
que viene incorporado 
en el Spectrum Plus, al 
parecer también inclui- 
do en algunos de los mo- 
delos normales. 


Y para el caluroso agosto... 


Gusánez está ya preparado para tomarse vacaciones en agosto, pero an- 


tes nos ha dejado muchos temas interesantes: 


Master file, conocida como «la тејог» base de datos. 
Lápiz óptico. Analizamos el lápiz de DK'tronic. 
Inteligencia artificial. ¿Un nuevo tema o un viejo reto? 

Gusánez en la playa. Un original y divertido programa en el que nuestra 


mascota es la protagonista. 


La versión española de Popular Computing 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 
mM 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 


Ya está a la venta 
A 


Cómprela en su kiosco habitual o solicitela a: 
“ ЧУ F` ГВ Bravo Murillo, 377 
| Tel. 7839662 = 
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Y la Garantia Investrónica. Exijala al comprarlo ya que 
le protege de cualquier anomalía o reparación. 


